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REBUILD 16-Sep-1984 01:27:55 AX-11 Bliss-32 V4.0-74 Page 1 
13-88-1382 04:20:32 MOUNT SRC TREBTIN D935 . (1) 
; 1 001 Module REBUILD (addressing_mode(external=GENERAL, 
3 ¢ 0 6 nonexternal=LONG_RELATIVE), 
3 0 tanguage (Bi 1333) 
. 7. § 004 ident = 'v04-000'S = 
: 2 Bobe : begin 
: 4 0997 ' j SOSNSSNRSHSSESHRAAATSAESARARNTARAN SSNS ONSEN TTAT TRON OSS IN ORT TEREU EIRENE ONeS 
; '® 
$ 9 0009 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
> 10 0010 1 i DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
: VV Bat) 1 o ALL RIGHTS RESERVED. : 
; ig ik i ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
3 14 0014 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE # 
$ 15 0015 1 !* NCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY THER * 
3 16 0016 1 !* COPIES THEREOF Y NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
$ 17 0017 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
; 18 ide ! it TRANSFERRED. * 
Py H * 
3 20 0020 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
8 $i 6054 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
5 $$ OSs ' ed CORPORATION. ® 
: Ie ® 
3 24 4 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
: $2 2 ! - SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
. 2 27 «1 is e 
4 $8 29 ; Lee AREER RAE 
: $3 0 1 !44 
s ST imae 
ae * 32 1! FACILITY: VMS Mount Utility 
; 3 ; 2 
; 34 4 1 ! ABSTRACT: 
ey > (URC 
s % 36 1! This module implements the rebuilding of the index file bitmap, 
: $ ¢ ! } allocation bitmap and the quota file when a volume is mounted. 
: 39 39 1 | ENVIRONMENT: 
; tt rt | i VAX/VMS 0 i 
; oO a2 73 perating System 
; 463 rk 1 i-- 
3 44 44 1! 
3 45 45 1! 
: 46 46 1! AUTHOR: Richard I. Hustvedt, CREATION DATE: 28-Dec-1979 
: 47 47 1! Andrew C. Goldstein 
; 48 48 1! 
3 49 49 1 ! MODIFIED BY: 
; $0 50 1! 
3 51 a ee v03-016 CDS0006 Christian D. Saether 4-Sep-1984 
A 26 26 1! Don't try to use the same FIB that everyone else uses 
3 27 27 : when reading the SCB. 
; 55 55 13 v03-015 cD$0005 Christian D. Saether 28-Aug-1984 
: 26 56 1! Define additional bit in BUILD FLAGS argument to | 
ce ¥ 057 1! REBUILD to allow REBUILD to determine whether rebuild 


ns 5 
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3 8 0038 1! is really necessary or not. 
; 2 O82 : Always unlock volume set when exiting for any reason. 
: 61 061 1: vO3=014 LMPO305 L. Mark Pilant 23-Aug-1984 12:42 
; 6 06¢ ii Fix a bug that caused COUNT_QUOTA to ACCVIO if the "UIC was 
: o7 6b, ; } an identifier (i.e., negative). 
: 65 Soee 1 / V03-013 JRLOO31 John R. Lawson, Jr. 24-Jul-1984 10:46 
: 08 Boe : Improve performance of QUOTA rebuild using chained hash table 
: 68 0068 1: v03-012 cDS0004 Christian D. Saether 10-July-1984 
3 9 B08? 3 Add STAND_ALONE_REBUILD routine to jacket the 
; £9 Band : REBUILD routine when not called from MOUNT. 
BS 0072 1 v03-011 CDS0003 Christian D. Saether 8-Dec-1983 
: fe, Bote : Use MOUDEF.B32 instead of FCPDEF.B32. 
: 75 0075 1: v03-010 cps0002 Christian D. Saether 18-Oct-1983 
: 6 Bore : Stop clearing SCBSW_WRITECNT. This is done in MOUNT. 

F 78 0078 1: v03-009 $TJ3112 Steven T. Jeffreys, 21-Jul-1983 
; 0079 1! Ei fix to UPDATE_ALLOCMAP to prevent ACCVIO 

: go Bees ! when called from USER mode. 
:  B2 0082 1! v03-008 $TJ3110 Steven T. Jeffreys, 17-Jul-1983 
: 5? Beez : } Fix bug introduced in STJ3084. 
: 85 0085 1! v03-007 TCM0001 Trudy C.Matthews 10-Jun-1983 
; 8 0086 1! Add new input parameter (passed in R4) to call to 
: 4 4-44 : : IOCSCVT_DEVNAM. 
+ 8 0089 1 V03-006 $TJ3084 Steven T. Jeffreys, 31-Mar-1983 
: + 4 ’ } Erase blocks returned to the storage bitmap. 
: 92 0092 1: V03-005 ACG0325 Andrew C. Goldstein,  4-Apr-1983 14:00 
: a7 4, ! } Change use of file header area length symbo 
; 95 0095 1! V03-004 cDS0001 Christian D. Saether 12-Jan-1983 
: 38 Bp39 } Clear SCBSW_WRITECNT when allocation flags are cleared. 
: 98 0098 1: v03-003 $TJ262 Steven T. Jeffreys, 23-Apr-1982 
;. 0099 1! Do cleanup before oeney ne secondary error condition. 
: H's 3100 : } Change status of condition from ERROR to WARNING. _ 
: 102 6102 i v03-002 STJ0254 Steven T. Jeffreys 04-Apr-1982 
3; 103 0103 1! Use common !/0 routines where possible. Duplicate 
: ie Bie } the necessary macros from MOUDEF .B32. 
: 106 0106 1: V03-001 ACG0273 Andrew C. Goldstein 26-Mar-1982 15:59 
: 4 344 ! & Use random tile sequence number in bad file headers 
: 109 0109 1} v02-022 $TJ0219 Steven T. Jeffreys, 16-Feb-1982 
; 110 110 7! Cancel exit handler before declaring it, to ensure that 
; M3 1} ! } a duplicate entry is not declared. 
: 118 118 1 i 
3 (116 114 1! Reference locals with LONG_RELATIVE 


v02-021 BLS0147 Benn Schreiber 12-Feb-1982 
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s 115 0115 1! 

: 138 118 1! v02-020 $TJ0197 Steven T. Jeffreys, 02-Feb-1982 

: ik 1 : } Made all external references use general addressing mode. 
: 119 119 1 i v02-019 ACG0255 Andrew C. Goldstein, 19-Jan-1982 18:28 
; : ? } y : } Use dynamic storage for volume descriptor tables 

ry é 01 é 1 i v02=018 STy0184 Steven T. Jeffreys, 13-Jan-1982 

3 4 7} Made all references to the exit handler internal, 

$ : ¢ 4 ¢ : so that the caller need have no knowledge of it. 

: 1 6 1 $ 1 v02-017 $Ty0178 Steven T. Jeffreys, 04-Jan-1982 

3 : : ! Made EXIT_HNDLR_DESC a global symbol. 

: 135 01 § 1 i V02=016 ACGO234 Andrew C. Goldstein,  4=Dec-1981 17:11 
; 130 3 , : Fix EOF handling on index file bitmap 

; 136 0132 1 i v02-015 mLJ0060 Martin L. Jack, 10-Nov-1981 21:23 

3 13? Bl8z . Correct V02-014 to include all rewrites of SCB. 

: 135 0135 1: v02-014 MLJ0027 Martin L. Jack, 2-Jul-1981 10:01 

3 136 3 : : Checksum storage control block before rewriting it. 

: 138 0138 1 v02-013 STJ0056 Steven T. Jeffreys, 29-Jun-1981 

3 173 Fe : } Change external references to use general addressing mode. 
: 141 0141 1! v02-012 ACGO198 Andrew C. Goldstein, | 5-Mar-1981. 23:21 
: 106 B46 ' Bounds check the LBN in storage map rebuild 

5 144 0144 1! v02-010 ACGO181 Andrew C. Goldstein,  9-Oct-1980 15:47 
: 102 Bez : Fix cross facility source reference 

$167 0147 1! v02-009 ACG0167 Andrew C. Goldstein, 18-Apr-1980 13:39 
3 be gies : i Previous revision history moved to MOUNT.REV 

: 150 0150 1_ 

i; ee 0151 1 

3 136 8136 1 library 

Bee} 0153 1 

3 138 B18 ' *SYSSLIBRARY:LIB.L32'; 

: 156 0156 1 require 

3: 157 0157 1 

: 138 bap } *SRC$:MOUDEF .B32'; 

: 160 0691 1 LINKAGE 

3 12) +¢3 ! L_ONE_ARG_OUT = CALL ( ; REGISTER = 1); 

: 168 0694 forward routine 

> 165 0696 1 REBUILD ! REBUILD main routine 

; 166 0697 1 CHECK S¢B_STATUS : L_ONE_ARG_OUT NOVALUE, ! Check dirty flags in SCB. 
: 167 . 98 1 F ' Get end o le on index file 

3: 168 69° 1 ALLOCATE TABLE: novalue, ' Allocate the ysage table 

: 169 0 1 COUNT QUOTA: novalue, ' Count blocks in quota List 

; 170 701 1 DELETE TABLE: novalue, ! Delete the quota list — 

5 a9 702 «#1 MARK_ACLOC: novalue, ! Mark blocks in use in bitmap 


nnn 
S > 

REBU 16-Sep-1984 01:27:55 AX-11 Bliss-32 V4.0-74 Pa 4 

Nivea 13-80 8=138e 04:90:32 MOUNT -SRCSREBGIY BD O35¢3 = (1) 

' Validate file header 

' ued home block on volume 

' Val Gate home bloc 

! Facility condition handler 


lity gets handler 
filesize 


! P.SYS 
! Set number of free blocks in VCB 


CHECR_HOMEBLOCK, 
RBLD_AAN 
RBLD-EXIT LHNOL : novalue, 


UPDATE _ALLOCMAP, 
SET_FREE: novalue; 


pofelelejoloelo) 


nn 
a 
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structure 
EXIT_CTRL PLR C1; NJ = ! Exit handler descriptor 
CT4+N) #4 ! N = # of arguments ( N <= 1) 
(EXIT_CTRL_BLK+1#4)<0,32,0>; ! The block is a longword array 


: Macro to signal error exit. 


macro 
RBLD_EXITC] = signal_stop(ZREMAINING) 2%; 


Macro to signal error message. 


macro 
RBLD_MESSAGEC] = signal (ZREMAINING) 2%; 
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' 
5 i 
6 } Error messages 

rae Macro to generate each error message. 

yy 

ms macro 
M 0744 ERR_TEXT(CODE, COUNT, SEVERITY, STRING) = 
m 0745 tera 
™ res Zname('RBLD$_', CODE) = MSG_CODE + FAC_CODE*16; 
: oe out cces 
» 8 psect . 
m 0750 own = $MSG_TEXT; 
® 0751 own 
M 07 § MSG_TEXT: yes tor Echarcount (COpE 01 1¢Scharcount (STRING) +2. byte) 
m 07 initial (byte (COUNT, FEnarcoynt sCO0G) St +Zcharcount (STRING), 
Mm 0754 ane = Zstr ng(SEVERITY) t=!) 
m 0755 Ystring(CoDE), *, *, STRINGS); 
Mm 07 § psect 
. , own = SMSG_INDEX; 

own 

M 07 3 MSG_INDEX: initial (MSG_TEXT); 
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VOe~ 000 1 ~Sep-19 4 93325532 MOUNT. SRCIREBUILD.B32; ’ (1) 
3 m™ 0760 1 undeclare 
; ™ oe 1 MSG_TEXT, 
; 1 Mm 07 ¢ 1 MSG_INDEX; 
3 § : re? ; switches ¢: 
; 1 165 tassign(MSG_CODE. MSG_CODE+8) 
: ec 
3 re 1 ’ own = SOWNS; %; 
; 238 rep} 
46 71 Initialize and Label the message sections. 
Be BE Jems 
; 44 0 OWN = SMSG_TEXT(nowrite, align(0)); 
2 ee Bie 
; rt 1464 : MESSAGE_TEXT: vector(0, byte); 
; 9 O78 : psect 
; 26 i } OWN = SMSG_INDEX(nowrite, align(2)); 
; 34 0785 1 own 
; 3 are? ! MESSAGE_TABLE: vector(0); 
; 28 1434 } compiletime 
: 260 0791 1 MSG_CODE = 0; 
: 53 O798 1 | 
; 88 0794 1: Generate the error messages 
; re had : ! 
; 68 Ore? : Literal 
; 68 0799 FAC_CODE = 69; ! Or whatever 
: 270 0801 1  ERR_TEXT(NODEVICE, 0, E, ‘no device currently selected"); 
3 4 oe j ERR_TEXT » E, terror adding entry’); , 
F 1  ERRTTEXT(MODIFYERR, 0. E. ‘error modifying quota file’); 
3 lat B04 1 ERR_TEXT(CLOSERR, . —,. ‘error closing quota file’); 
: 276 805 1 ERR_TEXT(LOCKERR » E. ‘failed to lock volume’); 
: 275 508 1 ERR~ TEXT (UNLOCKERR,  E, ‘failed to unlock volume’); 
3; la 807 1 ERR_TEXT(MAXVOLS, - E. ‘volume set has too many volumes to handle"); 
; a rie3 1 ERR_TEXT(DUALLOC, - W, ‘dual allocation on volume !UW'); 
: 278 09 1 ERR_TEXT(ACCINDEXF, 1, E, ‘failed to access index file on relative volume !UW"); 
: 279 10 1 ERR_TEXT(ACCBITMAP, 1, E, ‘failed to access bitmap tite on relative volume !Uw'S; 
3 50 1) Be ERR_TEXTCACCOFILE . €, ‘failed to access quota file’); 
: 281 1 1 ERRTTEXT(QUOTARERR, 0. E. ‘I/O error reading quota file's; 
3 § 15 1 ERR_TEXT(BITMAPERR, 1, E, ‘1/0 error reading index file bitmap on relative volume !UW"); 
: 14 #1 ERR_TEXT(READSCB 1, E, ‘1/0 error reading storage control block on relative volume !UW'); 
; a ERR~TEXT(WRITESCB, 1, E. ‘1/0 error writing storage control block on relative volume !UW'); 
; 5 16 «1 ERR_TEXT(WRTIBMAP, 1, E, ‘1/0 error writing index file bitmap on relative volume !UW'); 
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1 ERR_TEXTCWRIBITMAP, 1, E, ‘1/0 error writin orage bitmap on relative volume !UW'); 

89 1 Hee eT CE APERERR. WW, a: error re ding fife eader ! ‘Ot on relative volume ‘UW! 

Hey 1 ERR_TEXT(WRITEHDOR, » W, ‘1/0 error writing file header iUL ,on relative volume ‘UW’ ¥ 
ERR_TEXT(MEMALLOC, ° Be annot es locete ut cient memory’); 
ERR-TEXT(HOMEBLOCK, 1, E, ‘failed to read home block on relative volume 'Uw'); 
ERR_TEXT(SYSHEADER, 8. E, ‘failed to read system file header - rebu +2 aborted"); 
ERR_TEXT(ERRORS, o Eo ‘too many file header errors = rebuild abort 
ERR_TEXT(ERASEBLKS, 1, W, ‘blocks reclaimed on relative volume !UW not “completely erased'); 


' Module own storage. 


Literal 
MAX VOLUMES | : yes 
COMMAND LENGTH = 132, 


D 
OUTPUT cENGTH” = 132, 
BLOCK_FACTOR = 64, ! Blocking factor to read index file 


! Largest volume set handled 


: The following are indexes into the Exit Handler Control Block 


1 tte eet 


OONA NE WN OOD NAN EWN O ODNOUE WN" OCONOULS WOOO 


ate ay ADDRESS = 1, Exit handler address 
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1 ! 
1 84 HNDLR_ARGCNT = 2 ! Exit handler argument count 
i 84 XHNDLR™ STSADDR = §; i System exit status address 
1 84 
1 84 
1 84 OWN_START: vector(0J. ' Start of own storage 
1 84 BUFFER: ref BBLOCK, ! 1/0 buffer to read feet imap” 
1 84 IFILEMAP: ref bitvector, ! Pointer to index fi ¢ . Wes 
1 85 }FILERAE SIZE, ' Size of index re bit 
§ 85 LLOCMAP: ref bitvector, ' Pointer to Sliceatiee bitues 
85 ALLO MAP « ! Size of allocation bitmap ih bytes 
3 ALLOC_CLOSTER, ' Blocks per cluster 
5 BLOCKS AVAIL, ' Available blocks on volume 
85 ALCOCMAP: ref bitvector, ' One block window into old BITMAP.SYS 
85 PRase cc CHANNEL: word, ' Channel for erase 1/0 activity 
$2 C L: word, ' Channel for disk 1/0 
5 DUALLOC, pyal allocation thee 
85 10 STATUS: vector(4, word O status block 


OUTPUT_LINE: core tourrat’ “LENGTH, pyied, ! Output Line buffer 


' Command Line descriptor 
ra}. ' Output Line descriptor 
veste or(32), 


T CTRL -BLKC1); ! Exit handler descriptor 


OUTPUT_DESC: vecto 
CLEANUP FLAGS: bit 
EXIT NUNDLR DESC: E 


wm Tees. 
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1 
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Literal 

! CLF_UNLOCK = 0, ! Unlock volume set 
i 9 CLF_LEXIT = 1, ! Exit command entered 
1 7 QF ACTIVE = ' Quota file active 
2 7 CORD_REBLD = + i Conditional rebuild 
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BITMAPS = 0, 
QUOTAS = 1; 


: Quota file record buffers 


own 
SRC_REC: BBLOCKCDQFSC_LENGTH), 


FIB for quota file operations 
QUOTA_FIB: BBLOCKCFIBSC_LENGTHI, 


DYN_SIZE 

VOLOME PRESENT: ref bitvector, 
CLUSTER_FACTOR: ref vectorl, word], 
HEADER_OFFSET: ref vecteris word), 
BITMAP_OFFSET: ref vectorl, word], 
OF: ref vector 

OWN_END: vector(0); 


Usage table: 


allocated and initia 


own 
TABLE _SIZE: initial(0), 
ENTRIES_IN_TABLE, 
USAGE_TABLE: ref blockvectorl, 4]; 

macro 
UTB_L_UIC = 0, 0, 32, 0 %, 
UTB_L_USAGE = 1, 0, 32, 0 %, 
UTB_A_NEXT = 2, g. 3 5 Be 
UTB“V~PRESCAN = 1, 0'X, 
UTB-V~INUSE = 3, 1, 1, 6%; 

i 

! Quota record descriptors 

own 


SRCREC_DESC: eestor 2] initial (DQFSC_LENGTH, SR 
2) initial (FIBSC_LENGTH, QUOT 


QFIB_DESC: vector 


i 
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! used with the NEED_REBLD flags 
! same here 


Size of dynamic memory for below 
Volume present flags 

Cluster factor of volumes 

a offset of file headers 
E 
E 


d of index 


i 
° 
l 
BN offset of index file bitmap 
n file 
nd of own storage to zero 


This table consists of a single chained hash table which is 
jialized by a call to ALLOCATE_TABLE 


Hash key into table 

Block usage for UIC 

Link to next in chain 

Flags entry as pre-entered in QUOTA 
Flags entry as in use 


C_RE 
AqFI 


v0 


. 
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-Sep- MOUNT. REBUILD.B32; (1) 
3; 4 1 psect 
oO 401 1 
3; 4 § 1 plit = SOWNS; 
3; 6 1 
: 2 : QFILE_NAME = DESCRIPTOR(*QUOTA.SYS;1'); ' Quota file name 
s 6 1 psect 
ee’ ? 1 
; 610 1 plit = SPLITS; 
; 411 ¢ 1 
: £18 4 i os 
: 414 5 REC_ATTR: SRLOCKEATIDS RECATTRI, ' Record attributes buffer 
3: 615 § 1 RECATTR_DESC: vector J ' Record attributes Gescriptor 
i 418 94 initial (word(ATRSS_RECATTR, ATRSC_RECATIR), REC_ATIR, 0); 
: 418 305 1 bind 
; 419 950 1 
; 420 951 1  QUOTA_EOF = REC_ATTRCFATSL_EFBLK); 
; 4621 952 1 
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; é ? } GLOBAL ROUTINE STAND_ALONE_REBUILD (CHANNEL) = : 
: 425 1 !¢¢ ; 
; 4 8 1: : 
; 2 ! Functional Description: : 
; 4 $ 1} This routine is a jacket routine for the main REBUILD routine. : 
; 4 1 ¢ It checks to see if quotas ore enabled and sets the BUILD_FLAGS . 
; 4351 1: argument for the REBUILD routine appropriately. : 
; 4 ¢ 1: This routine is used to do a rebuild any time after the disk j 
; 2 } : is mounted. : 
3; 435 1 § Calling sequence: ; 
; : : standard : 
: 4 1 | Inputs: ; 
3 rhe 4 : : CHANNEL = @ channel assigned to the disk to be rebuilt : 
: 441 1 ! Outputs, side effects, etc: ; 
; 44 1} See REBUILD. : 
; 44 1! ; 
: 444 1 !-- ; 
3 445 1 : 
; 44 BEGIN : 
3; 44 ; 
; 448 LOCAL : 
; 449 RBLD_ FLAGS : BITVECTOR (2), : 
; re STATOS; : 
i 4 RBLD_FLAGS COF_ACTIVE) = 0; : 
: 454 09 ! ALL we want to find out is if the quota checking is enabled or not. : 
; 455 5 ! The oh tay test that follows is using the carnal knowledge that : 
; 45 ! the check for whether quota checking is turned on will be made : 
3; 6 4 by the file system before it gets around to noticing that most : 
3 $38 of the required arguments are missing. ; 
3 460 : ; 
; ret 1 QUOTA_FIB CFIBSW_CNTRLFUNC) = FIBSC_EXA_QUOTA; : 
: 46 p 0998 5 status = DO_10 (CHAN = .CHANNEL ; 
3; 464 p FUNC = 10$ ACPCONTROL, : 
3; 465 P 5 10SB = 10 STATUS : 
; 466 Pl = QFTB_DESCS; : 
; 468 IF STATUS AND .10_STATUS [OJ NEQ SS$_QFNOTACT : 
i 470 1000 RBLD_FLAGS COF_ACTIVE] = 1; ; 
; 47 1 § ! This flag tells REBUILD to only do it if the status flags ; 
3 ot? ! ; in the storage control block indicate it is still necessary. : 
: 475 1005 : 
; $2 ‘ RBLD_FLAGS CCOND_REBLD) = 1; : 
i 4 REBUILD (.CHANNEL, .RBLD_FLAGS) : 
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; 480 1010 1 END; 


"IDENT WVBS-000\ 
.PSECT $MSG_INDEX,NOWRT,NOEXE,2 
00000 MESSAGE _TABLE: 
00000000" 00000 ;MSG_INDEX 
00000000' 00004 bee we ; 
j.a:7 ADDRESS U.3 : 


00000000" 00008 ;MSG_INDEX 
U.6: sADDRESS U.5 5 


00000000" O000C ;MSG_INDEX 

U.8: -ADDRESS U.7 : 
00000000" 00010 ;MSG_INDEX 

U.10: ADDRESS U.9 : 
00000000" 00014 ins. NDEX 

U.12:  — ,ADDRESS U.11 F 
00000000" 00018 ;MSG_ 

U.14:  — ,ADDRESS U.13 ; 
00000000" 0001C AMSG. x 

U.16: — ,ADDRESS U.15 3 
00000000" 00020 iMSe. x 

U.1 -ADDRESS U.17 : 
00000000' 00024 ;MSG_INDEX 

0.20 —. ADDRESS U.19 : 


00000000° 00028 ; AAs. INDEX 


eADDRESS U.21 ; 
00000000° 0002C ;MSG_I 


U.24 ADDRESS U.23 ; 
00000000° 00030 ASG INDES 
U.26: pronase U.25 : 


00000000" 00034 "3 —IN 


U.287 ADDRESS U.27 
00000000" 00038 -MSG_INDEX og ; 
00000000" 0003¢ :ASG_INDEX es, : 
90000008" 00088 ZANT, IEE oss y.33 3 
00000000" 00044 ASG INDEX 35 : 
00000000" 00048 A 7 WOK ones v.37 : 
00000000" 0004¢ ins sINDEK ccc i a : 
00000000" 00050 ASG. INDEX : 
U.227 ADDRESS U.41 : 

Ja ADDRESS U.43 


U.44: 
00000000' 00058 aAS6_ INDEX 
3 ADDRESS U.45 ; 
00000000" O005C ;MSG_INDEX 
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K 5 
vOu~000 1e=86b-138e 93:25:32 — EAbunt. SacSeeao1L.32; poor of 
U.48: ADDRESS U.47 : 
.PSECT $MSG_TEXT,NOWRT ,NOEXE,0 
00000 MESSAGE_TEXT: 


.BLKB 0 
2F 00 00000 ;mSG_TEXT 
0.1: .BYTE 0, 47 ; 
2D 44 4C 42 52 25 000 “ASCII = \SRBLD-\ : 
4 SASCII \E\ : 
20 ASCII \- : 
45 43 469 56 45 44 sf i ASCH \NODEVICE\ : 
65 72 72 75 63 20 65 63 69 76 65 64 20 er E 1 “ASCII \no device currently selected\ : 
be obs $2 88 88 SF 88 38 $8 $$ 22 Sf SE 3 d : 
5084 “BLKB : 
23 00 000 se G TEXT wth ss 
2D 44 4C 42 52 25 000 ASCII \$RBLD-\ : 
45 0003C¢ “ASCII \E\ : 
2d 00030 “ASCII \-\ : 
S52 52 45 44 44 41 O003E “ASCII \ADDERR\ : 
é ¢ 0044 “ASCII \, : 
6—€ 65 20 67 6E 69 64 64 61 20 72 6F ie: f ? 0085 ASCII \error adding entry\ : 
005 .BLKB 1 
0059 ‘BLKB 3 
2E 00 0005C ;mSG_TEXT 
U.5:"  .BYTE 0, 46 3 
20 44 4C 42 52 25 0005€ “ASCII \&RBLD-\ ; 
45 00064 SASCII \E\ : 
2D 00065 “ASCII \-\ : 
52 52 45 59 46 49 464 4F 4D 0 66 ASCH \MODIF YERR\ ; 
67 6€ 69 79 66 69 64 6F 6D 20 72 6F 7 7 é 0071 ASCII \error modifying quota file\ : 
65 6C 69 66 20 61 74 6F 75 71 20 9080 : 
000 .BLKB 
2a 00 0008C sSG_TEXT 
U.7: -BYTE O, 42 3 
2D 44 4C 42 52 25 O08E “ASCII \SRBLD-\ ; 
45 00094 SASCII \E\ 3 
20 0095 “ASCII \- : 
52 52 45 53 4F i 4 36 ASCH \CLOSERR\ ; 
71 20 67 6E 69 73 6F 6C 63 20 72 6F 72 5 é OF “ASCII \error closing quota file\ : 
65 6C 69 66 20 61 74 6F 0 AE ; 
908 .BLKB 1 
27 00 B8 ;MSG_TEXT 
0.9: .BYTE 0, 39 : 
20 44 4C 42 52 25 BA “ASCII =\4RBLD-\ ; 
CO SASCIT = \E\ ; 
20 (1 SASCII \-\ ; 
52 52 45 4B 43 4F 4C cg ASCH \LOCKERR\ F 
20 68 63 6F 6C 20 6F 74 20 64 65 $6 69 rat és CB “ASCII \failed to lock volume\ : 
65 6D 6C 6F 76 OOODA ; 


5 
REBU 18-5e -1984 01:27:55 AX-11 Bliss-32 V4.0-74 Page 12 
VOeeOb0 1 ~300n 138i 94:90:32 MOUNT. SRCIREBUILD.B32; ° (2) 
£0 -BLKB } ‘ 
E1 BLKB ‘ 
28 00 £4 MSG TEXT : 
20 44 4C 42 52 23 £6 “ASCII = \SRBLD-\ : : 
Eb “ASEIT \c\ 
52 52 45 48 43 GF 4C 2 § ES attdh \UNLOCKERR\ : : 
63 6F 6C 6E€ 75 20 6F 74 20 64 65 6C 69 66 F “ASCII \failed to unlock volume\ : : 
65 6D 75 6C 6F 76 20 68 19 : : 
1 -BLKB } : 
11 -BLKB ; 
38 00 00114 ;MSG_TEXT : 
20 44 4C 42 52 25 00116 “ASCII = \$RBLD-\ : : 
4 11¢ ASCII \EN : : 
20 110 ASCII \e 3 : 
53 4C 4F 56 58 41 4D 11 «ASCII \MAXVOLS\ 3 ‘ 
20 6¢ 01 ASCII \, : 3 
20 73 61 68 20 74 65 73 20 65 6D 75 6C 6F 76 001 eASCII \volume set has too many volumes to handl\ ; : 
65 6D 75 6C 6F 76 20 79 6E€ 61 6D 20 6F 6F 74 3 : : 
6C 64 6€ 61 68 20 6F 74 20 73 14 : : 
65 O014F ASCII \e\ : ‘ 
Bota -—BLKB 3 3 
2F 01 00154 ;MSG_TEXT : 
U.15: BYTE 1 47 P+ ry 
2D 44 4C 42 S52 25 00156 “ASCII \$RBLD-\ ; : 
7 0015¢ “ASCII \W\ ; : 
D Bat ae eASCII \eN\ 3 : 
43 4F 4C 4C 41 55 rf: HFA = ach \DUALLOC\ 3 : 
6—E 6F 69 74 61 63 6F of 6C 61 20 6C 61 $0 és 00189 ASCII \dual allocation on volume !UW\ 3 ‘ 
57 55 21 20 65 6D 75 6C 6F 76 20 6E 6F 20 176 3 : 
ide -BLKB 1 : 
Bat 5 -—BLKB 3 3 
46 01 00188 sMSG_TEXT 3 
U.17: .BYTE 1, 70 : 3 
2D 44 4C 42 52 25 OO18A “ASCII = \$RBLD-\ : : 
45 00190 ASCII \EN 3 ; 
20 313) ASCII \e\ 3 3 
46 58 45 44 4E 49 43 43 41 V3 oAStHt \ACCINDEXF\ : : 
73 65 63 63 61 20 6F 74 § 64 65 69 ° é 138 “ASCII \failed to access index file on relative \ : 3 
6F 20 65 6C 69 6 0 5 64 6E 69 3 1AC ; : 
¢9 g 6 $ 4 61 65 $ 13 3 3 
5 21 20 65 6D 6C 6F 76 1C eASCII \volume !UW\ ; : 
1CF -BLKB 1 : 
47 01 100 ;MSG_TEXT : 
U.19: BYTE 1, 71 3 3 
20 44 4C 42 52 25 0010 “ASCII = \&RBLD-\ : 3 
45 10 ASCII \EN 3 : 
¢9 10 ASCII \e\ 3 ; 
50 41 40 54 49 42 43 2 } 108 att3) \ACCBITMAP\ : : 
73 65 63 63 61 20 6F 74 20 64 65 6C 69 g a3 168 “ASCII \failed to access bitmap file on relative\ ; $ 


vo4~000 


16-$ 
14S 


6F 20 65 6C 69 i 20 79 $} 6p 74 $3 i 73 IF 
57 21 20 65 6D be C 6F $f i ASCII 
1 -BLKB 
2— 00 1¢ MSG TEXT 
2D 44 4C 42 52 25 0 E aa ASCH 
20 5 “ASCII 
45 4C 49 46 51 43 43 4 6 4 ASCH 
73 65 63 63 61 20 6F 74 20 64 65 $¢ 9 ‘i és § 5 “ASCII 
65 6C 69 66 20 61 74 6F 75 71 20 0 ir ae 
30 00 $0 4C gMsg.text 
2D 44 4C 42 52 25 00246 © ‘ASCII 
35 00988 ASCH 
52 52 45 52 41 56 4F 55 i 0256 “ASCII 
30 C 0025F “ASCII 
69 64 61 65 72 20 72 6F 72 72 $5 0 4F 2F 49 00 gi “ASCII 
65 6C 69 66 20 61 74 6F 75 71 20 67 6€ 0 £0 sages 
0027E “BLKB 
4E 01 00280 MSG_TEXT 
2D 44 4C 42 52 25 00 82 oes ASCII 
20 09 89 “ASCII 
52 52 45 SO 41 4D 54 49 42 0 BA ASCII 
69 64 61 65 72 20 72 6F 72 72 65 20 4F 3? 49 00 33 “ASCII 
62 20 65 6C 69 66 20 78 65 64 6 69 20 67 6€ 002A4 
72 20 6 6F 20 70 61 6D 74 69 00283 
20 65 6D 75 6C 6F 76 20 65 76 69 74 61 6¢ 63 028 ASCII 
nn: et 
50 01 8 00 AiSS TenT te 
2D 44 4C 42 52 25 0 D3 pay “ASCH 
p 09 “ASCII 
42 43 53 44 41 45 DA “ASCH 
69 64 61 65 72 20 72 6F 72 72 é 20 4F $0 £5 E “ASCII 
74 6& OF 63 20 65 67 61 72 6F 7% 20 67 6 7 
30 6B 63 6F 6C be é : 6F 
6C 6F 76 20 65 76 69 74 61 6C 6 bE $f ASCII 
7 55 21 20 65 6D 75 0 A aie. 
-BLKB 
su 01 SSE agg rex 
52 spt Pape Sa 


=198¢ 92:25:32 — EROunt. SacSReBUILD 032; 


\ volume !UW\ 


\ 
\failed to access quota file\ 


48 
\ERBLD-\ 
\E\ 

\=\ 
\QUOTARERR\ 


\f/0 error reading quota file\ 


Rom 


1, 78 
\SRBLD-\ 
\E\ 


\BITMAPERR\ 


\f/0 error reading index file bitmap on r\ 


\elative volume !UW\ 
1 


1, 80 
\$RBLD-\ 
\E\ 


\- 
\READSCB\ 


\i/0 error reading storage control block \ 


\on relative volume !UW\ 


v0 
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REBUILD 16-Sep-1984 01:27:55 AX-11 Bliss-32 V4.0-74 Page 14 
Nivea 1 ~300n 138% 94:90: 3 MOUNT. SRCIREBUILD.B32: 9 023 
D sASCII \e\ ; : 
42 43 53 465 54 49 2 ASCH \WRITESCB\ : ; 
9 74 69 72 77 20 72 6F 72 72 65 4F OF "ASCI! \E/0 error writing stor ntr : ; 
2 oe oo Gs 5b OB OF SF OS FF $2 $8 5h gf ef 9084 oy ee eS : 
oc oF 76 20 65 $ oo Se ot ee BS 2 25 or fe Bb aae ASCII \on relati Lume !UW\ : } 
e n retative volume : 3 ° 
8 8 $F e5 9S } 
6 73 Bike ; 
4D 01 78 i" GTEXT te —" : 
20 44 4C 42 52 25 00 7A “ASCII = \SRBLD-\ : ; 
45 00380 “ASCII \E\ : ; 
p 00 1 “ASCII \=\ : : 
50 41 4D 42 49 54 52 f 0382 “ASCII \WRTIBMAP\ : ; 
72 77 20 72 6F 72 72 65 20 4 $3? 49 0038C “ASCII \f/0 error writing index file bitmap on r\ : : 
6C 69 66 20 78 65 64 $f 69 20 67 3 0398 : : 
72 20 6E 6F 20 70 61 6D 74 69 OO3AA : ; 
75 6C 6F 20 65 76 69 74 61 6¢ 65 99 B4 sASCII \elative volume !UW\ : ; 
57 55 21 003c3 : ; 
Bo ace -BLKB 1 3 
its -BLKB 1 3 
48 01 003¢8 smSG_ : 
0.33: .BYTE 1, 75 ; 3 
2D 44 4C 42 52 25 OO3CA “ASCII \$RBLD-\ : ; 
45 00300 “ASCII \E\ ; : 
gp 90301 “ASCII \= : ; 
50 41 4D 54 49 42 54 52 57 00302 [ASCII = \WRTBITMAP\ : : 
20 2c 00308 “ASCII : 3 
72 77 20 72 6F 72 72 65 20 4F 2F 49 0030D “ASCII \f/0 error writing storage bitmap on rela\ : ; 
62 20 65 67 61 72 6F 74 73 20 67 6E OO3EC : : 
61 6C 65 72 20 6E 6F 20 70 $1 003FB : ; 
20 65 6D 75 6C 6F 76 20 65 76 69 74 00405 .ASCII \tive volume !UW\ : 3 
00414 “BLKB 1 : 
00415 ‘BLKB 3 ; 
4C 02 00418 ;:mSG_T 3 
0.35: .BYTE 2, 76 : 3 
2D 44 4C 42 52 25 0041A “ASCII \$RBLD-\ : : 
7 00420 SASCII \W\ : : 
20 0421 “ASCII \-\ : : 
52 52 45 52 45 44 41 45 48 00422 [ASCII \HEADERERR\ ; : 
20 ec 428 “ASCII \ ; : 
65 72 20 72 6F 72 72 65 20 4F 2F 4 X13 “ASCII = \f/0 error reading file header !UL on rel\ ; : 
64 61 65 68 20 65 6C 69 66 20 67 6E 0043C¢ ; : 
6C 65 72 20 6E 6F 20 4c 55 21 AaB ; : 
65 6D 75 6C 6F 76 20 65 76 69 7% 61 0459 sASCII \ative volume !UW\ F : 
0465 -BLKB 1 3 
rhe} -BLKB 2 3 
4B 02 0046 sms. Text : 
.37: ~=.BYTE. —.2,_- 75 ; 3 
2D 44 4C 42 52 5 046A “ASCII =\S&RBLD-\ ; 3 
470 SASCIT \W\ : : 
p 471 “ASCII \=\ ; : 
52 46 48 45 Se 49 52 472 “ASCII «\WRITEHDR\ : : 
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REBU 1-5 ep-1 AX-11 Bliss-32 V4.0-74 P 1 | 
Niven ea eeen Re Pb:25:82 | HAMT AT Shige e32 Ve. O304 age 38 V 
C3 .BLKB 1 
51 01 $8ca int hee ore 1. 8 
2D 44 4C 42 52 5 05t6 cASCII \SRBLD-\ : 
gee CARE : 
53 4B 4C 42 45 53 41 52 i aCE ASCII \ERASEBLKS\ : 
5 6D 69 61 6C 63 65 72 20 7 63 6F 3 08 “ASCII \block ; i ! : 
$5 oo 2 $) of re ef ‘ ie é ee ef s rf a5e8 II blocks reclaimed on relative volume !UW \ : 
20 79 6C 65 7% é 70 6D 6F 6 2 74 6F 6 01 ASCII \not let \ : 
of 9 He $f of 390) not completely erased é 
00616 .BLKB 1 


-PSECT SOWNS,NOEXE,2 
00000 OWN_START: 
-BLK 


B 
00000 tte psetke 
00004 IFILEMA 


P aike 
00008 IFILEMAP.SIZE: 
0000C ALLOCMAP: ” 
00010 ALLOCMAP_SIZE: 
00014 ALLOC_CLUSTER: 
00018 BLOCKS _AVAIL : 
0001C OLD_ALLOCHAP: 
00020 ERASE_CHANNEL : 

.BLKB 
00022 CHANNEL: .BLKB 
00024 DUALLOC: -BLKB 
00028 10_S ATUS: 
00030 OUTPUT Line: 
00084 OUTPUT DESC: 
000BC CLEANUP FAS: 
000CO EXIT_HNDLR_DESC: 


K i] 
0004 SRC_REC: <BLKB 3 
OOF4 QUOTA_FIB 


00134 DYN_SIZE: 

00138 VOLUME PRESENT: 

0013C CLUSTER_FACTOR: 
-BLKB 4 


“peo - @w BRN fF RF RF RF RF KF FO 


0 
16- 
14- 


00140 
00144 


148 EOF: 


00000000 abIee Oy 


00150 

00154 

00000020 00158 

00000000" 0015¢ 

00000040 00160 

00000000" 00164 

31 38 53 59 53 2E 41 54 4F 33 3 001 4 
00000008 Bote 

00000000" 00178 

0017¢ 


0004 0020 0019C 


00000000" 001A0 
00000000 001A4 


000C 00000 
00000000" } 3f 


oOo 
Oooo 
ooo 
33s 
aor 


23 
00E2 28 


oo 


~ 

m 

~~nNw 

Ooo, 

oOo 
Dt st 


43 D4 
0138 3 oF 


04 


wu 
ow 
coon 
oon 
SeSssss 
Ssssss 


MORIN —WWOO ro 
moO OCMM—wmM—~n 
DO > OOwW— 

= 


Ql "989 NV 


A 

1 

000000006 00 g 
0304 F | 
A 

0 


04 
00000000V_ EF 


é 
spn 198d 2:45:34 
HEADER_OFF SET: 
.BLKB 
BITMAP_OFFSET: 


AX-11 BL Aigeae V4.0-74 
MOUNT. SRCJREBUILD.B32; 


-BLKB 
OWN END: .BLKB 
TABCE_SIZE: 

LONG 
ENTRIES_IN TABLE: 
USAGE TABLE: 
SRCREC_DESC: 


NG 
ADDRESS SRC REC 
QFIB_DESC: ¢ 


- LON 64 
ADDRESS QUOTA_FIB 


woe eee aoe > 


P.AAB: ASCII \auoTA: TSYS;1\ 
P.AAA: “TONG 11 

“ADDRESS P.AAB 
REC_ATTR: 

-—BLKB 32 


RECATTR_DESC: 
.WORD 32 
“ADDRESS | fee’ _ATTR 
“LONG 


QF ILE_NAME= P.AAA 
QUOTA“EOF= REC_ATTR+8 
~EXT N_TO 
.PSECT $CODES$,NOWRT,2 
.ENTRY STAND_ALONE_REBUILD, Save R2,R3 
HOVAB 10_STATUS, R3 
BICB2 #1. RBLD FLAGS 
MOV Wie, , QUOTA ise 22 
CLROQ 
CLRO = (36) 
CLRL = = (SP) 
PUSHAB OQFIB_DESC 
CLRQ = =(SPY 
PUSHL R 
PUSHL #56 
PUSHL CHANNEL 
PUSHL i 
CALLS COMMON_10 
BLBC STATUS, 1$ ~ 
CMPW 19_ STATUS, #980 
BEQL $~ 
Bis8g #1, RBLD FLAGS 
1$ BISB * RBLD-FLAGS 
MOV ZBL Rat DAFLAGS, (SP) 
PUSHL CH 
CALLS #2, REBUILD 


Page 17 
9° (2) 
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6 
nEDULAR ifestoctgge 01:27:95 yatctt euiggc32 v4.02242 Page If 
04 OO04A RET ; 1010 
; Routine Size: 75 bytes, Routine Base: S$CODE$ + 0000 


F 6 
1$-3e0719 ° 91:22:83 aaelt Oh igecse V4.0-74 Page Rs} 


TATUS ! general status value | 
READ_STATUS, i Status of file header read 1/0 
READ_LENGTH, ! number of blocks to read 


-Sep-19 4 MOUNT REBUILD.B32; 
: : § } 1} } GLOBAL ROUTINE REBUILD (CHANNEL_ARG, BUILD_FLAGS) = : 
Boor aie 3 
; 2 : 1? ! ; Functional Description: : 
; 488 1 3 1} This routine implements the REBUILD function on volume mount. It scans : 
; 489 1 8 1} the index file of each volume in the volume set and constructs a table ‘ 
; 490 1019 1! of UIC's and blocks used. It then updates the usage data in the quota ‘ 
; 491 1020 1! file, creating entries as needed so that all UIC's ys ing blocks are ‘ 
3 $36 102) 3 3 listed. As the index file is scanned, the index file bitmap and ‘ 
: rt 1° ¢ ! H allocation bitmaps are also rebuilt and will be rewritten. : 
: 495 102% i Calling Sequence: 
; re 1025 1! standard : 
; 49 10 § 1? : 
; 498 10 1 ! Input Parameters: : 
; 499 10 3 1: HANNEL_ARG: channel number assigned to the volume (set) : 
: 200 10 1! BUILD_FCAGS: : 
; 501 1030 1! BIT 0 he ACTIVE] _: 1 to rebuild quota file, 0 to not : 
; 206 193) : } BIT 1 CCOND_REBLD] : 0 for unconditional rebuild, test SCB flags otherwise : 
; 204 1938 1! Implicit Inputs: ; 
a ties Bb! ile | 
; 507 1036 1 ! Output Parameters: ; 
: 309 1038 1 i ho 
; 510 1039 1 ! Implicit Outputs: 3 
fhe Lmao | 
; 13 104¢ 1 ! Routines Called: ; 
ies tad TE en : 
; 21g 1045 1 ! Routine Value: ; 
ee eid lee a pn : 
: 519 1048 1 | Signals: ; 
an oe tee ae ! 
; @ 1051 1! Side Effects: ; 
; 1036 '? none 3 
; 4 1055 1! ; 
iets ; 
; 1056 2 BEGIN ; 
oe 3 
i $30 39 BUILD_FLAGS =: BITVECTOR; ; 
3 g 1 BUILTIN ; 
: ' ROT; : 
; 535 LOCAL : 
ie eee : 


SSSFERE 


v 


G-sep-1964 01:27:55 yanott Btins=32 4.0274 Page (20 
BLOCKS Song? 


number of blocks eetuet ey read 
RETRY to COUNT, 


count of errors encounter a 
prey Eu blocks to retry in single block mode 
ex 


ome me meme meme ~~ > 


turns out to be too small, decrease the blocking factor until Sis succeed. 


8 

44 READ_LENGTH = BLOCK_FACTOR; 

11 : 

1 Verify that a channel is open. 
14 2. 

CHANNEL = .CHANNEL_ARG; 

1 IF .CHANNEL EQL 0 

: THEN RBLD_EXIT (RBLDS_NODEVICE); 


Lock the volume set against modification. 


FU OCOnou 


1 

1 

is 

107 VOLUME vaper of volumes tn set 

107 DEFAULT.  OUOTA: initial(1000), default quota for new entries 

: RR DEFAULT“OVER: initial(100), default overdraft Limit for new entries 
107 BITNUMBER, ' general b inser 

1 8 ’ eer ta VBN Ma et 

’ 28 BUFPTR, i current buffer aaieead for file 

1 ENTRY : REF BBLOCK, ' pointer to ta file entry 

1080 HEADER : REF BBLOCK : P ; to e hea 

1081 FILE_ID : BBLOCK PLOsc_te GTH), ! file ID block 

1 ¢ TIME BUFFER : VECTOR C2 ! buffer for time of day 

10 NEED _REBLD : BITvEctoR (23, ! t Lop to indicace | vote file rebuild 
1 BLOCR_COUNT, ! bloc s used by he 

! 5 FILE_RUMBER; i file number o file. in question 

Hs 14 EXTERNAL ROUTINE 

18 CHECKSUM, ' compute block checksum 
1089 LIBSFREE_VM ADDRESSING_MODE (GENERAL), i deallocate working storage 
ised arp : ADDR ESSING_MODE (GENERAL); i allocate working storage 
1a38 ENABLE REED. HANDL 

; Bz CHSFILL (0, “OWN_ END OWN. START, OWN_START); 

1096 : Set up the exit handler descriptor and declare the handler. 

109 

1098 EXIT_HNDLR_DESC eats “ARCCHTD = RBLD_EXIT_HNDL; 

1099 EXIT_HNDLR “DESCEX HNDLR-AR = 1; 

: o} EXIT_HNDLR “DESC XHNDLR “STSADDRI = EXIT_HNDLR_DESCCXHNDLR_STSADDR+1); 

1 ¢ SCANEXH (DESBLK=EXIT_HNDLR_DESC); 

: SOCLEXH (DESBLK=EXIT— ~HNDLR_ DESC); 

\ 5 ! Initialize the actual blocking factor for reads. If the working se 
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STATUS = DO_IO TCHAN = .CHANNEL, 
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FUNC = 108 AC it lee 
pee Ue! 

= QFTB_D 

IF .STATUS THEN Status = paps 
IF NOT .STATU 
THEN RBLD_EXIT (RBLDS_LOCKERR, .STATUS); 
'CLEANUP_FLAGSCCLF_UNLOCK) = 1; 


: Allocate the 1/0 buffer. 


STATUS = LIBSGET_VM (UPLIT (BLOCK_FACTOR*512), BUFFER); 

IF NOT .STATUS 

THEN 
BEG! 


BUFFER = 0; 
RBLD_EXIT (RBLDS_MEMALLOC, 0, .STATUS); 


: Now open the index file on RVN 1 and read the home block. 


CHSFILL (0, FIBSC_LENGTH, QUOTA F1B); 
QUOTA_FIBCFIBSL_ACCTL) = FIBSM RowR Te 
QUOTA-F IBLF IBS$WFID_NUM] = FIDSC_INDEXF; 
QUOTA"F IBLF I1B$W~FID~SEQ = FIDSC- INDEXE: 
QUOTA“F IBLF IBSW~FID-RVN 
STATUS = DO_IO (CHAN = .C 
FUNC = 10$_ACCESS OR I1OSM_ACCESS, 
10SB = 10 STATUS, 
4 = QFIB_DESC 
IF ,STATus THEN STATUS = .JO_STATUSCO]; 


IF NO A 
THEN Reid. EXIT (RBLDS_ACCINDEXF, 1, .STATUS); 


READ_HOMEBLOCK (.BUFFER, 1); 
VOLUME_COUNT = .BUFFERCHM2$W_SETCOUNT); 

IF .VOCUME_COUNT cot 0 LHe VOLUME_COUNT = 1; 
IF .VOL Thy MA VOLUMES 

THEN RBLD_EXIT (ROLD _RAXDOLS) : 

!' Allocate the volume descriptors. 


((, VOLUME _COUNT+7)/8) * 81; 
ie ET_VM TDYN_SIZE, EOF); 
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CHSEILL (0 sDYN.SIZE, EOF); 
cLus FACTOR =".EOF + .VOLUME_COUNT®4; 
BAER AOFESET = <GLUSTERSEAL ION * -VOLURE COUNT S2: 
VOLUMEPRESENT = .BITMAP_OFFSET * . VOLUME. COUNT#2; 
VOLUME _PRESENT[O) = 1; 
COU STER FACTOR : = ,BUFFERCHM2$W_CLUSTER 
BI TRAP OFFSET = -BUFFERT HAG W FLU TER} +1 
HEA ERIOFFS TCO) = .BUFFERCHMOSW~CLUSTER]*4 + .BUFFERCHM2$W_IBMAPSIZEJ 
EOFCOJ~= GET_EOF (.BUFFER, 1); 
DO_JO (CHAN = .CHANNEL 

FUNC = 10$_DEACCESS 


If this is a conditional rebuild, access the storage bitmap file to 

read the storage control block and determine whether the various bo 

in the status2 field indicate a rebuild is still necessary. The status2 
flags are set when the volume is mounted if the corresponding flag was 
set in the status flags of the SCB, and the current gount of writers 
mismatched with the current number of locks outstanding, indicating 

that the volume had caching enabled and was improperly dismounted. 


If not a conditional rebuild, simply set the flags. 


IF .BUILD_FLAGS CCOND_REBLDJ 
$ CHECK_SCB_STATUS (1, 0 ;NEED_REBLD) 


NEED” -REBLD (BI TMAPS) 
Ate REBLD CQUOTAS =" BUILD. FLAGS CQF_ACTIVE); 


! If this is a volume set, access the index file of each volume in the se 
i and get cluster factor and EOF. We do this beforehand to verify Pane B+ POPS 
of all volumes in the set. 
INCR J FROM 2 TO .VOLUME_COUNT 
BEGIN 


QUOTA _F IBCF IBSW 
STATUS = DO_IO T 


“STATUS THEN ttatus = 10. 
NOT .STATUS 

N 

BEGIN 

RBLD_MESSAGE (RBLDS_ACCINDEXF, .J, .STATUS); 
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weEDREBLD CQUOTAS) = 0; 
ELSE 
BEGIN 
VOLUME _PRESENTC.J-1]) = 1; 
READ_HOMEBLOCK (.BUFFER, .J); 


CLUSTER, er - sBUFEERCHM 
HEADER” OFFSET °J 


1: 
J] = GET_ ‘ 


Bur FERCHM2$W_IBMAPSIZEJ; 


ia CLUSTER) 
W W CLUSTER 4 + 
SW"CLUSTERJ#4 + 


maw 


OF 


DO_IO (CHAN = 
- = 


: If conditional rebuild, check whether it is necessary for this volume. 


IF .BUILD_FLAGS CCOND_REBLDJ 
CHECK_SCB_STATUS (.J, .NEED_REBLD ;NEED_REBLD); 


! If this is a conditional rebuild, see if ag tye Fe needs rebuilding. 
t Donte reoutt uotas unless the quota file is 
e 


poets f le needs rebuilding, the a*tneee get “rebuilt regardless. 
nothing needs rebuilding, clean up and exit 


IF .BUILD_FLAGS CCOND_REBLDJ 
THEN 


BEGIN 
IF NOT .BUILD_FLAGS CQF_ACTIVE) 
NEED_REBLD CQUOTAS) = 0; 

i eee CQUOTAS] 
NEED_REBLD CBITMAPS) = 1; 

: aes »NEED_REBLD CBITMAPS) 
BEGIN 
QUOTA_FI 


QUOTA FI 
= 


STATUS Thun : "CHANNEL, 
0$_ACP CONTROL. 
OBTArUS 


K 6 
16-Sep-1984 01:27:55 AX-11 Bliss-32 V4.0-74 Pa 4 
12-808- 1382 93:90:32 MOUNT. SRCIREBUILD 832; 3 
16h ! ‘ IF .STATUS THEN STATUS = .10_STATUSCO]; 
26 1 4 F NOT .STATUS 
£9 1 4 HEN RBLD_EXIT (RBLDS_UNLOCKERR, .STATUS); 
a 1 4 LIBSEREE_yM (UPLIT (BLOCK_FACTOR®512), BUFFER); 
7 1 4 UFFER =°0; 
77 1 4 LIBSFREE_VA (DYN_SIZE, EOF); 
£0? : ? EOF = Q; 
re 1 $ SCANEXH (DESBLK=EXIT_HNDLR_DESC); 
a8 1 43 4 RETURN SS$_NORMAL 
7 1 END; 
781 1310 
4 ¢ ! 1 END; 
7 1 ig ! Scan the existing quota file to prebuild the usage table. This is essential 
re? : 13 : to get table entries for quota file entries that have zero usage. 
7 131 ; 
7 1 i$ QUOTA_FIBCFIBSL_ACCTL) = 0; 
789 1 18 QUOTA_F IBCF IBSW-DID_NUM) = FIDSC_MFD; 
790 131 QUOTA-F IBLF IBS$W-DID-SEQ) = FIDSC"MFD; 
791 1320 2 QUOTA_FIBCFIBSW"DID-RVN) = 1; 
64 1321 QUOTA’ F IBLF IB$W CNTRLEUNC) = FIBSC_ENA_QUOTA; 
79 1 ; IF .NEED_REBLD [QUOTAS 
794 1 HEN 
795 1324 BEGIN 
796 P 1325 STATUS = DO_IO (CHAN = .CHANNEL 
797 P 1 g FUNC = 10$_ACCESS OR IOSM_ACCESS, 
798 P 1 10SB = 10 STATUS, 
799 P 1 § Pi = QFYB_DESC 
P 1 P2 = OFILE NAME 
1 Pp P = RECATTR_DESC 
§ 1 ¢ IF .STATUS THEN STATUS = .10_STATUSCO); 
1 IF NOT .STATUS 
5 ! : THEN RBLD_EXIT (RBLDS_ACCOFILE, .STATUS); 
0 1 QUOTA_EOF = ROT (.QUOTA_EOF, 16) = 1; 
09 ! ALLOCATE_TABLE(); 
9 1 VBN = 1; 
i 1 UNTIL -VBN GTRU .QUOTA_EOF 
14 1 4 BEGIN 
15 P1344 4 STATUS = DO_IO (CHAN = .CHANNEL, 
16 P1345 4 FUNC = I0$_READVBLK, 
1 P 1 $ 4 108 = 10 STATUS, 
18 P 1 4 Pp 2 80 FER 
1 P 8 4 Ps = 512 « MINU (.READ_LENGTH, .QUOTA_EOF - .VBN + 1), 
9 Pp ! $ Ps = .VBN 
¢ 1 3} 4 IF .STATUS THEN STATUS = .10_STATUSCO); 
1352 4 IF NOT .STATUS 
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Th ae e 1; 
BLDS_QUOTARERR, .STATUS); 


,ROLD_EXIT (RBLD$_QUOTARERR, .STATUS); 
ENTRY = .BUFFER 
UNTIL .ENTRY GEQA .BUFFER + .10 _STATUSC1) 


BEGIN 
IF .ENTRYCDOFSV_ACTIVE) 
THEN 


BEGIN 
IF .ENTRYCDQFS$L_UIC] EQL 0 
THEN 


BEGIN 
DEFAULT_QUOTA = RYCDQFSL_PERMQUOTA); 
Agel [OVER = YCDOQFS$L_OVERDRAF TI; 


BEGIN 
= atl amet (.ENTRYCOQFS$L_UICI, 0, 1) 


END; 
ENTRY = .ENTRY + DQFSC_LENGTH; 


END; ! end of buffer processing loo 
VBN = .VBN + .IO_STATUS(1]) / 512; , . . 


END; 1 end of quota file reading loop 
DO_IO (CHAN = .CHANNEL 
FUNC = I0$_DEACCESS 
END; 
We Loop for all the volumes in the set. Open the index file and start 
7 ceedinn file headers. 


CHSFILL (0, FIBSC_LENGTH, QUOTA_FIB); 


INCR J FROM 1 TO .VOLUME E -COUNT 
ay . VOLUME _PRESENTLC. 


0c = 
ERR_ COUNT 
QUOTA_F I6C 


Sue 


ith _ACCTL] = FIBSM_NOWRITE; 
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81 QUOTA_FIB[FIB$W_FID_RVN) = .J; 
¢ QUOTA-FIBCFIBSW-FID-NUM] = FIOSC_BITMAP; 
QUOTA-FIBCFIBSW-FID-SEQ) = FIDSC-BITMAP: 
Pp STATUS = DO_IO TCHAR = .CHANNEL 
g P FUNC = 1O$_ACCESS OR IOSM_ACCESS, 
86 P 10S6 = 10 STATUS, 
4 P P = QFIB_DESC 
889 if STATUS THEN STATUS = .10_STATUSCO); 
891 THEN RBLD_EXIT (RBLDS_ACCBITMAP, .J, .STATUS); 
$3 P STATUS = DO_IO (CHAN = .CHANNEL, 
894 P FUNC = 10$_READVBLK, 
95 P 10SB = 10 STATUS, 
896 P Pi = BOFFER, 
897 P Pg = 512, 
mF Hes 
900 IF .STATUS THEN STATUS = .10_STATUSCO); 
901 IF NOT .STATUS 
90¢ THEN 
90 


BEGIN 
CLEANUP _FLAGSCCLF UNLOCK] = 0; 
ROLD_EXTT (RBLDS$_READSCB, .J, .STATUS); 
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ALLOC CLUSTER = Shuster FACTORC.J-1); 
ALLOCMAP_SIZE = 4095 + (T. BUF FERCSCBSL vOL si ge2 + ,BUFFERCSCBSW_CLUSTER] - 1) 
/ .BUFFERCSCB$W_CLOSTERJ); 
ALLOCMAP_SIZE = 512 * (.ALLOCMAP_SIZE / 4096); ! convert to page byte count 
STATUS = LIBSGET_VM (ALLOCMAP_SIZE, ALLOCMAP); 
IF NOT .STATUS 
THEN 
BEGIN 
ALLOC 


MAP = 0; 
RBLD_EXIT (RBLD$_MEMALLOC, .STATUS); 


Initialize allocation bitmap to show all space available 


CHSFILL (0, .ALLOCMAP_SIZE, .ALLOCMAP); 
BLOCKS_AVAIL = ((.BUFFERCSCB$L_VOLSIZE) + .BUFFERCSCBS$W_CLUSTER] -1) 
/ {BUFFERESCBSW- CLUSTER) 
* \BUFFERCSCBSW-CLUSTER); 
INCR BITNUMBER FROM 0 
TO ((.BUFFERCSCBSL vous 1ZE + .BUFFERCSCBSW_CLUSTER] - 1) 
7 .BUFFERCSCBSW_CLUSTERJ) - 1 
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BEGIN 
6 ALLOCMAPC .BITNUMBER) = 1; 
° END; 
P 146 STATUS = DO_IO (CHAN = . CHANNEL 
P 1464 FUNC = [0$_DEACCESS 
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L OR FIBSM_WRITE; 

QUOTA_ FIBSW_ 

QUOTA_F IBLF IBSW_ 


STATUS = DO_10 


sO on 


QUOTA -Fi8 ries WAC 
FIB FI 
FID- 
(CH 
+ S$ OR IOSM_ACCESS, 
Pi ; 
LF STATUS TH THEN Status = .10_STATUSCO); 
THEN RBLD "exit (RBLDS_ACCINDEXF, .J, .STATUS); 
! Allocate space for working copy of index file bit map 


IFILEMAP_SIZE = (.HEADER_ OFFSETC.J-1] = .BITMAP_OFFSETC.J-1] + 1) * 512; 
aA = of izsceT. vM CIF ICEMAP_ Size, IFILEMAP); 


BEG! 
IFILEMA 
BLD. EXIT = Pius _MEMALLOC, .STATUS); 


Read old index file bitmap into buffer. 


STATUS = DO_IO (CHAN = .CHANNEL, 
FUNC = 10$_READVBLK, 
10SB = 10 STATUS, 
Pl = -TFICERAR, 
P2 = .IFILEMAP 
P = {BITMAP_ Oresest. J-1] 
IF .STATUS THEN ttatus = .10 STATUSCO); 
IF NOT .STATUS THEN RBLD_ ExT (RBLDS _BITMAPERR, .J, .STATUS); 


! Loop for all blocks in the index file. Read headers, starting with the MFD. 
: ot read multiple blocks into a data buffer and process them one at a 

' time. 

1 


VBN = .HEADER OFFSET “f-1] * 1; 
UNTIL .VBN GTRU .EOF 


BEGIN 
READ_STATUS = DO.10 (CHAN = : CHANNEL 
FUNC = 10s READV VBLK 
10SB = 0 Staru 
= 8 FFER 
Pe = 512 * a (.READ_LENGTH, .EOFL.J-1) - .VBN + 1), 
P3 = .VBN 


); 
IF .READ_STATUS THEN READ_STATUS = .I1O_STATUSCO] ELSE IO_STATUS = 0; 
! If an 1/0 error occurred, go into single block mode for the scope of the 
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' read. We must do this since the byte count returned with an 1/0 error is 


! not reliable. If we are already single block mode, then see if the header 
read was marked active; only report the error if it was. 


ge33 E 


IF NOT .READ_STATUS 
THEN 


BEGIN 
10_STATUS = 0; 
IF .READ_STATUS EQL SS$_INSFWSL 


BEGIN 
READ_LENGTH = Rene LENGTE - 1; 

IF .READ_LENGTH EQL 

qwen RBLB_EXIT (RBLDS_HEADERERR, .FILE_NUMBER, .J, .READ_STATUS); 
ELSE 

IF .READ_LENGTH GTRU 1 

THEN 


BEGIN 
RETRY_COUNT = .READ_LENGTH; 
READ_CENGTH = i; 
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ELSE 
BEGIN 
FILE NUMBER = .VBN - .HEADER_OFFSETC.J-1]; 
IF .TFILEMAPC.FILE_NUMBER- 
THEN RBLD_MESSAGE TRBLDS_HEADERERR, .FILE_NUMBER, .J, .READ_STATUS); 
IFILEMAPC.FILE_NUMBER-1) = 0; 
VBN = .VBN + 1; 
IF .FILE_ NUMBER LEQU FIDSC_MFD 
THEN RBLB_EXIT (RBLD$_SYSHEADER); 
ERR_COUNT™= .ERR COUNT + 1; 
IF TERR_COUNT GTRU 10 
9 ey RBCD_EXIT (RBLD$_ERRORS); 
0 END; 
END; 
0 $$ ! For each header block that we read, verify that it is a valid file header. 
0 68 ! S, compute the number of blocks it maps and charge them to the 
040 69 4 | owner UIC. If the header is not valid, check if it is marked busy in 
041 70 ! the index file bitmap. If so, bump the sequence number and write it; then 
628 re mark it free. If the write fails, leave it busy. 
4 7 } 
beg 74 BLOCKS_READ = .IO_STATUSC1] / 512; 
ps6 75 HEADER = BUFFER; 
047 7 UNTIL .HEADER GEQA .BUFFER + .BLOCKS_READ * 512 
be? 4 BEGIN 
af 80 FILE_NUMBER = .VBN + (.HEADER = .BUFFER) / 512 - .HEADER_OFFSETC.J-1); 


ne Pt igseze VR Ores 
MOUNT. SRC JREBUILD.B32; 
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1984 01:27:55 AX-11 Bliss-32 V4.0=-74 
- 71382 93:05:82 MOUNT. SRCIREBUILD.B32; 


BEGIN 
RETRY COUNT = .RETRY_COUNT = 1; 
IF_.RETRY_COUNT EQL 
en READ_LENGTH = BLOCK_FACTOR; 
END; ! end of processing one volume 


Clear unreferenced bits past the index file EOF. Then 
write back new index file bitmap after pass through index file. 


INCR I FROM .FILE_NUMBER+1 TO .IFILEMAP_SIZE*8 
IFILEMAPC.1-1] = 0; 


STATUS = DO_IO (CHAN = .CHANNEL 

FUNC = 10$ WRITEVBLK, 

10SB = 10 STATUS, 

Pi = .IFICEMAP, 

Pg = [IFILEMAP. SIZE 

P = [BITMAP_OFFSETC.J-1) 
IF .STATUS THEN STATUS = .IO_STATUSCO); 
If NOT STATUS 


BEGIN 
CLEANUP _FLAGSCCLF_UNLOCK] = 0; 
ROLD_EXTT (RBLD$_QRTIBMAP, .J, .STATUS); 


: Release memory for working copy of indexfile bitmap. 


STATUS = LIBSFREE_VM (IFILEMAP_SIZE, IFILEMAP); 
IF ILEMAP 


ey 
STATUS = DO_IO (CHAN = .CHANNEL 
FUNC = J0$_DEACCESS 


Write out the new storage bitmap then release bitmap buffer. 


UPDATE_ALLOCMAP (.J, 1); ! 1 specifies ‘‘erase the data’ 
A Ll SFREE_VM (ALLOCMAP_SIZE, ALLOCMAP); ! release working memory 


: Clear the cleanup flag bits in the storage control block. 


STATUS = DO_IO (CHAN = .CHANNEL, 
FUNC = IO$_READVBLK, 
10SB = I0 STATUS, 
P1 = BOFFER. 
Pe = $12, 
iets 


IF .STATUS THEN STATUS = .10_STATUSCO); 
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IF NOT .STATUS 
THEN 


Ow 


O00 


BEGIN 
: CLEANUP Punestcie UNLOCK] = 
ENDS EXIT (RBLDS$_READSCB, oP * STATUS); 


BUFFER 
BUF FERC SCB$V—~MAPALLOC 
BUFFER SCBSV FILALLOC 
CHECKSUM (.BOFFER) 
STATUS = DO_I0 (CHAN 
FUNC 

106 

ss 
.STATUS THEN Status = .10_STATUSCOI; 
NOT . STATUS 


seesy -MAPDIRTY 


uw Gmc oSe 


nhnnnnan 
ee 
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BEGIN 
' CLEANUP Fee au = 0; 
RBLD EXIT (RBLD oRite B, .J, .STATUS); 


i 

baa 

ra 

4 

4 

END 

DO_I10 (CHAN = .CHANNEL 

FUNC = 108_ DEACCESS 
IF .DUALLOC THEN RBLD_MESSAGE (RBLDS_DUALLOC, .v . 0); 

Update volume size in VCB now. 


STATUS = KERNEL_CALL (SET_FREE, .J); 
END; ! end of processing all volumes 


SOOONOUS WO 


! We have now scanned the entire volume set and have a table of the total 
i disk usage. Take each table entry and use it to update the Sercenpenanne 
i quota file entry. This is done in two passes. The first updates a 

i existing entries (these come first because of the quot a file prescan). 
The second pees creates new quota file entries for UIC's that have space 
i 


n use but have no quota file entries. 


FIB$C_LENGTH tuorA FIB); 
FiBSw_CRTRLFUNC) = FIBSC_MOD QUOTA; 


HSFILL at 
FIBSL- ENTREVAL = FIBSM_AOD_OSE; 


C 
QUOTA_FIB 
QUOTA_F IB 
' 

i 

i 


Update existing UIC entries in QUOTA.SYS 
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if .NEED_REBLD CQUOTAS) 


51 
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1 
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THEN 
BEGIN 
local 
+ ref block(4], 


Scan entire usage table 


Q = .USAGE_TABLE; 
until .Q@ geqa .USAGE_TABLE+.TABLE_SIZE do 
begin 


P = .Q; 
while .P neq 0 do 
begin 
if .PCUTB_V_PRESCAN] then 
begin 
SRC_RECCOQFSL_UIC] = .PCUTB_L_UIC]; 


SRC-RECCDQFSL_USAGE) = .PCUTB~L_USAGE); 
HANNEL 


,. 
unc = 10$_ACPCONTROL, 
iosb = 10_STATUS, 
pl = OFIB DESC 
p2 = SRCREC_DESC); 


if .STATUS then 
STATUS = .10_STATUSC(O); 
if not .STATUS Ehen 
RBLD_EXIT(RBLOS_MODIFYERR, .STATUS); 
end; 
P = .PCUTB_A_NEXT]; 
end; 
Q= .Q + 16; 
end; 


end; 
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QUOTA_FIBEE1BSU_CNTRLFUNC) = FIBSC_UNLK_VOL; 
QUOTA FIBLFIBSL-CNTRLVAL) = 0; 
STATUS = DO_10 TCHAN = . CHANNEL 
FUNC = 10$_ACPCONTROL, 
10S6 = 10 STATUS, 
p = OFTB_DESC 
$ 


IF .STATUS THEN STATUS = .J0_STATUSCO); 

IF NOT .STATUS 

THEN RBLD_EXIT (RBLDS_UNLOCKERR, .STATUS); 
!CLEANUP_FLAGSCCLF_UNLOCK) = 0; 


QUOTA_F IBLF IBSW_CNTRLFUNC] = FIBSC_ADD_QUOTA; 


: Enter the new UIC's 


* ref block(4], 


: Scan entire usage table 


Q = .USAGE_TABLE; 
until .@ geqa .USAGE_TABLE+.TABLE_SIZE do 
begin 


P= .Q; 
while .P neq 0 do 
begin 


if A pat and not .PCUTB_V_PRESCAN] then 


SR 
SRC RECCOQFSL USAGE] = AgPeut L_USAGE); 
SRCRECCOQF SL ~PERMO DEFAULT_QUOTA; 
SRC" RECCLDOF SL “OVERDRAFT = :DEFAULT~OVER; 


STATUS = DO_ 10¢chan . CHANNEL 
unc [SSAct ACP CPCONTROL . 

osb = 10 STAT 

= OFIB™DE 

s CREC_ 


C = VIC) = .PCUTB_L_UIC); 
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186 if gSTATUS 
186 ATUS r aie STATUSCO]; 
186 if oe «STATUS Eh iy 
139 RBLD “EXT ARBLD -MODIFYERR, .STATUS); 
\ end; 
1 P = .PCUTB_A_NEXT); 
18 & end; 
18 4 
\i 4 Q= .Q + 16; 
18 end; 
ie ' 
3 : Release the quota table storage. 
188 
\ DELETE_TABLE(); 
1887 ' 
1888 : Clear the cleanup flag bits in the storage control block. 
1889 ' We must open the bitmap file on volume 1, read and write the SCB, and 
1300 H close the file. 
189 
1898 QUOTA_FIBCFIBSL_ACCTL) = FIBSM_WRITE or FIBSM_NOWRITE; 
1894 QUOTA_FIBCFIBSW_FID_RVN) = 1; 
1895 QUOTA-F IBLF IBSW-FID“NUM) = FIDSC_BITMAP; 
; 38 QUOTA_F IBLF IBSW_FID-SEQ) = FIDSC_BITMAP; 
P 1 38 STATUS = DO_J0(chan = .CHANNEL 
P 1 func = 10$_ACCESS or IOSM_ACCESS, 
P 1 iosb = I1O_STATUS, 
133) pl = QFIB_DESC); 
1 § if gSTATUS ¢ 
1 ATUS = ae STATUS(O); 
1905 if aoe STATUS then 
1998 RBLD *EXIT(RLDS "ACCBITMAP, 1, .STATUS); 
ig 1308 STATUS = DO_ poten = .CHANNEL, 
P 1 = 10% READIBLE. 
P 1910 ioeb © 10_ STAT 
P 1911 p} z aur FFER, 
P i918 = fs 
1914 
1915 if .STATUS then 
at STATUS = "T0_STATUSCO); 
4 of nee » STATUS 
1318 RBLD_EXIT(RBLD$_READSCB, 1, .STATUS); 
1981 BUF FERCSCBSV QUODIRTY2) = 0; 
1922 CHECKSUM( BUFFER); 


nepuit ibeseo-1964 1:27:55 yanets euiggc32 v.g374 rage 


1 1 
1395 P 1 ‘ STATUS = DO efune = = ,CHANNE FL 
1 Pj ios he Eve, 
1 P 1 § a ey 
1 Pi 
1 -f 
14 1 
14 1 if .STATUS then 
14 5 19 STATUS = "10. STATUSCO); 
1¢ : 13 if net STATUS 
1? 1 5 RBLD_EXIT(RBLDS_WRITESCB, 1, .STATUS); 
14 P19 STATUS = DO_J0(chan = .CHANN 
1289 19 8 func = 108 ADEAE CESS) ; 
141 194 end; 
141 190} 
1218 1308 : 
sehe Yo Free remaining storage and cancel the exit handler. 
at 1945 
13 Hb BUFFER -\" (UPLIT (BLOCK_FACTOR*512), BUFFER); 
= 
1219 1948 L1BSFREE_ VA (DYN_SIZE, EOF); 
= . 
1421 1950 
1é ¢ 133) SCANEXH (DESBLK=EXIT_HNDLR_DESC); 
We EB dil Peg 
t 
IWF0#250 11:1538 sete ted cess ti: . 
Referenced LOCAL symbol FILE NUMBER is probably not initialized 


«PSECT SPLITS,NOWRT,NOEXE ,2 


~EXTRN CHECKSUM. LIBSFREE_VM 
E BSGET_VM, SYSSCAREXH 
~EXTRN SYSSDCLEXN. SYSSGETTIM 


eEXTRN SYSSCMK 
-PSECT SCODES,NOWRT,2 
OFFC 00000 “ENTRY REBUILD, Save R2,R3,R4,R5,R6,R7.RB-RIRI0,~ ; 1011 
E C ¢2 00002 sual? #60 SP ; 
E o3e8 BF 3¢ ROW ut #1000, DEFAULT QUOTA > 1056 
7E 64 BF OA A MOVZBL #100, DEFAULT_OVE ; 
6D OFF? cf OE ROVAL 111$, (FP) ; 
O14c BF 00 6E 0 2C 0001 movcS #0, (SP), #0, #332, OWN_START : 1093 


J - $-32 V4.0-74 Page 3 
15- 30p7198e 93:25:82 — ERdunt. SacSheaaitD O30, 
voe~000 : 109 
EF 1A AIT HNDL, EXIT HNDLR_DESC +4 z 1098 
° dainty , ¥ F ROVAS We ERI T AN DESC+B R_DESC+12 : 1100 
. oF 1 & de ADcRY DESt® 6, EXIT_HNDLR_ ¢ 1102 
+ EF ' EF be } PUS EXIT HN “HNDLR-D ; 
80000000" FF 44 és CALLS Ht SUSSCARE RH ; 1103 
sonnons 99 OO" Fe iL AEC et: 
ee 40 i 9A 00096 ROVU CHANNEL ARG. CHANNEL 41117 
' €F 06 AC #9 A BNEQ ; 1118 
“spate 4 6 PUSHL #4521984 : 
00450000 DD CALLS #1, LIBSSTOP : 1138 
6 00 1 te Oe 18: MOV #7, QUOTA_F1B+22 ; 1128 
00000" EF t $2 Soore '* = eka ACgep ; 
nae fee OOOTA «Eta 13h) 
oe Be genre PUSHAB OF IB. DESC 
00000000" FF 9F 068 cLRa. 
+ TE Te Op eee PUSHAB 10. STATUS 
00000000" FF BD 0008C pith CHANNEL, = (SP) 
7E 00000000' Fe C PUSHL : 
A 0D 0009 CALLS i - COMMON_10 : 
000000006 00 9¢ 08 94 HOVE” RO, “STATUS ; 129 
=o SF OAs MOVEWL 10.8 STATUS, STATUS 1130 
oC AE 00000006) Te ES Sota Bigs Status, 36 : 1131 
AE DD 0089 28: PUSH ase2016 
00450020 BS BB Bn0s CALLS #2, L IBSSTOP ; 1138 
Seeeeeees 0000000" EF 9F once 38: PUSHAB PUAAE : 
apoa0000 Op Pe O0C CALLS #3, LIBSGET_VM : 1139 
He PL AR 
"® 000000" fF ba d000p PUSHL STATUS 
STE Oe Eg PUSHL #4522136 
PUSHL Pee 
00450098 8F DD iH Sut 55° t3b)) 0, #64, QUOTA.FIB hin 
000000006 99 5 Oe F548: (HOV £1150 
0040 8F 00 Pa 00000000° ' 09 $ HOV. miS58). 000th. F1Bes 1133 
69009000: EF 00010001 BF 3 198 Ov gpeuor TA_F B48 ; 11 
¥ eee BRS =i} 3 
re Be tt PUSHAB af 18, Desc 
ed ee a BUSHAB I io. STATUS 
;, F 001 (SP) 
E seal GF eh a ig 
7E 00000000° ff hes 501 PUSH ae ; 
0 OB Bet ROVE’ ROS STATUS” 
000000006 00 85 DB Oble 
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000000006 
oc 
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‘s ore 
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EF 
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pr198e $a:c5:8¢  EROUNT. SRCTREBAILD O32- 
Lat STATU US, 5$ 
MOVZWL 10S i uS, STATUS 
BLBS sTATU of 
PUSHL 


PUSHL nH 
PUSHL e ce 8 
CALLS + LIBSSTOP 

L fi 

ae ER 

aout READ, eee: 
MOVZWL $ out EeR. VOLUME. COUNT 
py #1, VOLUME C 


MPL - VOLUME_ COURT. USS 
BLEQU 
PUSHL #4522032 
CALLS #1, LIBS$STOP 
MOV 7(R7), RO 
DIVL R 
LL3. #81, RO, DYN_SIZE 
PUSHAB EOF 
PUSHAB SIZE 
CALLS ie “Hascer _vM 
MOVL Tus 
BLBS STAT Tos. : 
CLRL —sCEOF 
PUSHL STATUS 
CLRL 


SuStL #4822136 
CALLS #3, LIBSSTOP 


MO EOF, R 
MOVCS #0, (SP), #0, DYN SIZE, (R6) 


MOVAL (R6)CVOLUME COUNT], CLUSTER FACTOR 
MOVAW pte FACTORL VOLUME COUNT), - 


HEAD 
MOVAW GHEADER “OFFSET VOLUME _COUNT], 
MOVAW PEVOLUME =COUNT), 


VOLURE RESE 
BISB2 de avOLURE PRESENT 


MOVL 
ROVzuL Wat 
MOVW RO, accUSTER _FACTOR 
ASHL. #2. RO, R 
ADDW3 «#1. R2, QB 1 TMAP_OFFSET 
MOVZWL 32(R1). R 
MOVAL (R2)CRO1, R3 
VW 3, @HEADER_OFFSET 
SHL 
PUSHL 1 
CALLS ae GET_EOF 
VL RO, (ROY 
CLRO 2s = §P) 
CLRQ 2s = (SP) 
CLRQ  =(SP) 
CLRQ  =(SP) 
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00000000Vv 
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34 
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08 AC 
: 
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00000000' fF 
vases, 1 cr 
? F 
00000000" EF 
1A 
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OC AE 
00000000" EF 
OC AE 
oc ag 

5 
00450040 Be 
3 

0080 
ibe: 
00000000' Fe 
00000000" EF 
OE Al 
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; 
2 all 
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11$: 
128: 
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AX-11 BL sige s-32 V4.0-74 
MOUNT. SRC JREBUILD.B32; 


#52, = 

CHANNEL Psp) 
COMMON 

a. “BUILD FLAGS, 10$ 


fe: ¢ CHECK_SCB_STATUS 
R1. NEED_REBLDB 


aul.p CFLKGS ot, #1, NEED_REBLD 


14 
J, QUOTA_FIB+8 
P) 

-(SP) 

=(SP) 

QFIB_DESC 
=(SPY 
10_STATUS 

#1T4, =(SP) 

CHANNEL , -(SP) 


#12, COMMON_10 
RO, STATUS ~ 


13$ 
ae 


#45220 
a3. 


48 
LIBSSIGNAL 
NEED 


I 

“REBLD 

-1(R2 

R3, a OLURE _PRESENT, 16$ 
Ourre Ee AD HOMEBLOCK 
BUFFER, Ri 


14(R1), RO 
a3. 8 r) CUSTER. FACTORCR3) 


Ra. 1TMAP_OFF SETCR3) 
Stal) a6 
(R4) b63" RS 
RS. Seis OFFSETCR3) 
#ACR 


G SefrERs, 
(3P) 
P) 


(§ 
SP 
P) 
HANEL PsP) 


’ 
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of 
~(38} 
Ph 

CH 
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vou~000 erSep-19be t2:45:3¢ — EROUNT. SRCSREBUILD 032; oe 


000000996 00 oc FB 6 CALLS #12, COMMON_IO ; 
11 AC § BBC #1, BUILD FLAGS, 17$ + 1259 
7E 14 =A 5A th MOVZBL NEED_REBLD, -(SP) + 1261 

00000000v_ EF FB b CALLS #2, CHECK_SCB_STATUS : 

14 AE D MOVL R1, NEED_REBLB ; 
FFI 52 01 7 Fi 17$ ACBL  VOLUME_COUNT, #1, J, 12$ : 1 24 
78 08 AC 1 €1 BBC #1, BUILD FLAGS, 22$ + 1272 
04 08 A + 96 BLBS §BUILD_FLAGS, 188 + 1276 
146 AE A 0039A BICB2 #2, NEED_REBLD + 1278 
04 16 AE F! 9E 18S: BC #1, NEEDIREBLD, 19$ + 1280 
14 =A 1 g 0 A BISB2 #1. NEED REBLD :1 Be 

6 14 AE E A? 19$: — BLBS NEED REBLD, 22$ : 1 

00000000' EF 08 80 003A MOVW #8, GUOTA F1B+22 : 1288 
00000000° cr D4 038 CLRL  QUOTA_FIBT24 + 1289 
E 7C 0038 CLRO 40s = (SP + 1294 

7E 7C 003BA CLRQ = =(SP) : 

7E D4 0 BC CLRL = = (SP) : 

00000000" EF 9F 003BE PUSHAB QFIB_DESC : 

E 7C 003C4 CLRQ. = =(SP : 

00000000° cE 9F 00366 PUSHAB 10 STATUS F 

8 pp 00 CC PUSHL F 

7E 00000000 FF 5¢ 0 cE MOV ZL CHANNEL, -(SP) : 

000000006 00 OC FB 037 CALLS #12, COMMON_IO : 

OC AE 50 DO 00 DE MOVL RO, STATUS : 
OC Oc AE 5 O3E BLBC STATUS, 20$ + 1296 

OC AE 00000000' EF 3C 003E6 MOVZWL 10 STATUS, STATUS : 
10 OC AE E8 OO3E BLBS STATUS, 2/$ + 1298 
o¢ AE DD 003F2 20$: = PUSHL A us + 1299 

00450028 8F DD O03F PUSHL #4522024 : 

000000006 00 02 FB 003F CALLS #2, LIBS$STOP ; 
0000000' EF 9F 00402 21$:  PUSHAB BUFFER + 1301 

0000000" EF 3 040 PUSHAB P.AAD : 

0BC1 31 0040E BRW 110$ ; 
90000000' EF D4 00411 22$:  CLRL QUOTA FIB + 1317 
00000000' EF 00040004 Br DO 00417 MOVL #262148, QUOTA_FIB+10 : 1318 
00000000" EF 1 80 04 g MOVW #1, QUOTA_FIB+T4 : 1320 
00000000" EF 09 BO 004 MOVW #9. QUOTAFIB+22 :1 31 
3 14 AE oi £0 04 0 BBS #1; NEED_REBLD, 238 : 1322 

0179 31 004 BRW 38§ ; 
7E D4 00438 238:  CLRL =-(SP) : 1331 

00000000° cr 9F 0043A PUSHAB RECATTR_DESC : 

E 7C 00440 CLRQ = =(SP : 

44 EF 9F ri PUSHAB QFILE_NAME 3 

00000000' cr OF 0044 PUSHAB QFIB DESC ; 

— 7¢ ae CLRQ. = =(SP : 

0000009 ' ti OF 004 PUSHAB 10 STATUS : 

7E F A 456 MOVZBL #174, -(SP) : 

7E 00000000' + C 45A MOVZWL CHANNEL, -(SP) 5 

A OD teh PUSHL # : 

000000006 00 o¢ F 46 CALLS #12, COMMON_IO : 

OC AE DO 0046A MOVL RO, STATUS ; 
0c ¢ AE 5 Age BLBC STATUS, 24$ + 1332 

0c Ar 00000000" EF ¢ 4 MOVZWL 10 STAT 5 STATUS ; 
1 C AE EB OO47A BLBS STATUS, 25$ : 1333 
C AE DD O047E 24$:  PUSHL STATUS > 1334 
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00450050 8F DD 00481 PUSHL #4522064 ; 
0 G 00 FB 00487 CALLS We LIBS$STOP : 

50 EF 9C 004 : 25$ ROTL #16, QUOTA EOF, RO + 1336 
0 ' EF FF AO SE 004 MOVAB =1(RO), QUOTA_EOF : 
0000000v EF 0 FB 49 CALLS #0, ALLOCATE_TABLE + 1338 

1 AE 1 =O 4A MOVL . VBN 3; 1340 
00000000" EF 10 a pi a9 26$: CPL ey QUOTA_EOF + 1341 
00 31 483 BRW 7$ : 
Be: 4B6 27$:  CLRQ =(SP) + 1350 
7E 04 0048 CLRL = = (SP) : 
1 AE Dp O4BA PUSHL  VBN : 
51 00000000' EF 2 AF 7 48D SuBL VBN, QUOTA_EOF, R1 : 
50 SA Be rhe MOVL READ_LENGTH, RO $ 
51 30 D1 004CB CMPL RO, Ri : 
Q 1B 004¢ BLEGQU 288 : 
50 1 00 O40 MOVL Ri, RO ; 
7E 50 09 403 28$: ASHL #9, RO, -(SP) ‘ 
00000000' EF DD 00407 PUSHL BUFFER ; 
E 7C 00400 CLRQ.  =(SP) ; 
00000000° EF OF OO4DF PUSHAB 10 STATUS ; 
1 pp 004E5 PUSHL #4 ; 
7E 00000000° FF 5¢ QO4E? MOV ZL CHANNEL , -(SP) F 
ees = yeh oF BB sir gout> Roc’status 
0c Oc AE £9 O4FB BLBC STATUS, 29$ + 1351 
OC AE 00000000" EF 3C OO4FF MOVZWL IO STATUS, STATUS : 
36 OC AE €&8 00507 BLBS STATUS, : + 1352 
0000011¢ 8F 0c Hy: ot 00318 29$ Ha gigtus. #284 : 1355 
SA is 0051 DECL READ LENGTH ; 1358 
10 12 00517 BNEQ  30$ + 1359 
OC AE DD 00519 PUSHL STATUS : 1360 
00450058 8F DD 0051C PUSHL #4522072 : 
000000006 02 FB 00522 CALLS #2, LIBSSTOP : 
00000000' EF 84 00529 30$: CLAW STATUS+2 + 1361 
10 11 0052F BRB $ : 1355 
o¢ AE DD 00531 31$:  PUSHL STATUS > 1364 
004500 BF DD 005 PUSHL #4522072 ; 
000000006 0 02 FB 53a CALLS #2, LIBSSTOP : 
52 00000000' EF p 541 328: MOVL BUFFER, ENTRY : 1367 
20 99000000 EF 248 $: MOVZWL 10 STATUS+2, RO : 1368 
0 ' EE C 4F ADDL2 BUFFER, RO : 
50 2 01 336 CMPL ENTRY, RO : 
2 if; 0559 BGEGU 36$ : 
1€ 62 € 0 5B BLBC (ENTRY), 35$ : 1372 
04 A2 D 5E TSTL (ENTRY : 137 
0B 12 00561 BNEG 34 : 
04 AE of A ) 0 rt MOVL 12(ENTRY), DEFAULT_QUOTA : 1378 
6E 10 Ad 0 6 MOVL ISCENTRY) , DEFAULT "OVER : 1379 
E 11 0056C¢ BRB 35$ : 1 13 
DD $ 34$: PUSHL #1 : 138 
D4 3 CLRL. = (SP) : 
04 A2 dD 0057 PUSHL 4 (ENTRY) : 
00000000V_ EF 0 FB 0057 CALLS #3, COUNT_QUOTA 3 
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2 7C 35$: ADDL2 #32, ENTRY 
” 20 it 7F BRB £32 
50 99900000" F 3¢ 1 36$ MOVZWL 19 STATUS#2, RO 
0000200 i C6 DIVLg #572, R 
10 AE 9 0 F ADDL2 RO, VEN 
FFI 5} 3 BRW 26$ 
7E 7¢ 00596 37$:  CLRQ <=<(SP) 
7E 7C 0059 CLRQ  =(SP) 
7E 7C 0059A CLRQ = = (SP) 
7E 7C 0059¢ CLRQ igP) 
7E 34 7D 0059E MOV #52, -(SP) 
7E 00000000' FF 3¢ 5a] MOVZWL CHANNEL, -(SP) 
A #12, COMMON_I0 
0040 28F 0 ees 9? 85 be Seat 38$: sous #0, (SP), #0, #64, QUOTA_FIB 
00000000' EF 8068 
4 ps 00580 CLRL oJ 
071C 31 00SBF 39$:  BRW 6$ 
08 AE FF OAS «OE 005¢¢ 40$:  MOVAB -1(R8), 8(SP) 
EF 00000000' FF ueseealie AE EI 003¢7 BBC 8(SP) . VOLUME _PRESENT, 39$ 
2C AE D4 00506 CLRL —- ERR_COUNT 
00000000" EF 01 DO 00509 MOVL #1, ~QUOTA_FIB 
00000000° EF 58 BO 005E0 MOVW oJ QUOTA_F1B+8 
00000000" EF 00020002 BF 00 QO5E7 MOV #31074, QUOTA_FIB+4 
7E 7C 005F4 CLRQ  =(SP) 
7E 04 005F6 CLRL = = (SP) 
00000000" FE Ft OOStE ctRa” (SPY 
' F PUSHAB 10. STATUS 
7E eenhet . f Sh its MOVZBL #iT4, -(SP) 
7E 00000000' FF 3¢ 0060, MOVZWL CHANNEL , -(SP) 
A #12, COMMON_IO 
emo yp oF BB OostA mot ROL ’STATUS 
0c Oc AE £9 O061E BLBC STATUS, 41$ 
0c oooongs Ge ee GneskgoueMt dtantatugy stats 
OC AE DD 00626 41$:  PUSHL STATUS 
58 DD 00631 PUSHL J 
00450048 BF DD 00633 PUSHL #4522056 
000000006 00 03 FB 0639 ued CALLS #5, LIBSSTOP 
7E oi 7D Os? ; Ova #i, =(SP) 
7E 0200 8F 3C 0064 MOVZWL #512, -(SP) 
00000000' EF DD 064A USHL BUFFER 
E 7C 00650 CLRQ. = (SP) 
00000000' ef oF 0698 PUSHAB 10_ STATUS 
7E 00000000' FF aC ns MOV ZUL CHANNEL , -(SP) 
CALLS #12, COMMON_IO 
rs pb ites GAUSS. ta 
of 00000096" ef 6 $§ SO yUL STATUS § raTUS 
= 5 OC AE 6 ore BLBS STATUS, 44$ 
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1418 
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1428 
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OC AE DD O067E 43$:  PUSHL STATUS 5 1434 

00450068 &F bb pusHt #4522088 : 
ames RE pO 00090 448: BOUT. BtPbeeRe S sar 
00000000' F 09000000: FF 40 ac 694 MOVZuL aCLUSTER  F ACTORCROJ, ALLOC_CLUSTER : hae 

1 09 A Re eA MOVZWL 2n0) ‘ai : 

1 2 Cg 6AB ADDL2 4(RO); RI : 

51 p O6AF ECL sR : 
52 02 AO 3C 00681 MOVZWL 2(RO), R2 + 1439 

1 5 gs $8 IVL2 Re ri : 
00000000° EF OFFF : B OV 4095(R1), ALLOCMAP_SIZE + 1438 
50 00000000° EF 00001000 =F : 6C1 DIVL3 #4096, ALLOCMAP_ SIZE, RO + 1440 

00000000" €F 0 9 78 006CD SHL. #9, RO, ALLOCMAP_SIZE : 
00000000" EF 9F 00605 PUSHAB ALLOCMAP + 1441 

00000000" EF 9F 006DB PUSHAB ALLOCMAP_SIZE : 

000000006 00 : FB 006E1 CALLS #2, LIBSGET_VM : 

OC AE DO 0068 MOVL RO. STATUS : 
16 Oc AE €E8 006EC BLBS STATUS, 45$ + 1442 
00000000" EF D4 006FO CLRL ALLOCMAP + 1445 
OC AE DD 006F6 PUSHL STATUS + 1446 

00450098 8F DD 006F9 PUSHL #4522136 ; 

000000006 00 os FB OO6FF CALLS #2, LIBS$STOP F 
00000000' EF 0 6E wesenen 2c 00706 45$:  MOVCS #0, (SP), #0, ALLOCMAP_SIZE, @ALLOCMAP + 1451 
50 00000000" EF p0 00714 OVL FFER, RO + 1452 

51 02 AO 3C 00718 MOVZWL 2(RO), R1 : 

51 04 AO CO O0071F ADDL2 4(RO); R1 : 

51 b7 00723 DECL = RI : 
52 02 AO 3¢ 00725 MOVZWL 2(RO), R2 + 1453 

51 52 c6 007 9 DIVL2 R2, Ri : 
53 02 A0 ‘ 072¢ MOVZWL 2¢ > 1454 

00000600" EF 5} 53 C5 00730 MULL3 R3, Ri, BLOCKS_AVAIL : 
50 01 CE 007 8 MNEGL #1 fNUMBER + 1455 

08 11 00738 BRB 47$ : 
00 00000000" FF 50 Eg 00730 46$:  BBSS  BITNUMBER, @ALLOCMAP, 47$ + 1460 
F4 50 31 F2 00745 47$:  AOBLSS R1, BITNUMBER, 46$ > 1455 
— 7C 00749 CLRO. 0 = (§P) + 1465 

7E 7C 00748 CLRQ = = (SP) ; 

7E 7C 00740 CLRQ = =(SP) : 

7E 7C OO74F CLRO 543?) : 

7E 34 70 00751 MOVO #52, -(SP) : 

7E 00000000' FF 3¢ 07 : MOV ZL CHANNEL , -(SP) : 

000000006 00 O¢ FB 0750 CALLS #12, COMMON_10 : 

C AE 0 p 0764 MOVL RO, STATUS : 
0000000" EF 0101 ; % 168 MOVZ2WL #257, QUOTA FIB + 1467 
0000000" €F 00010001 F 00 ort MOVE #65587, QUOTA_FIB+4 3 1468 

7E 7C 0077 CLRQ = = (SP) : 

7E D4 0078 CLRL = = (SP) F 

00000000' EF F 007 PUSHAB OQFIB_DESC ; 

— 7C 007 CLRQ. = =(SPY : 

0000009 ' i F OO07B8A PUSHAB 19 TATUS : 

f F 9A 007 MOVZBL #174, -(SP) : 

7E 00000000" EF 3C 00794 MOVZWL CHANNEL, -(SP) : 
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13-808- 1382 04:90:32 MOUNT. SRCIR BUILD.B32; 3) 
1A DD 007 PUSHL : 
000000906 00 Of F 738 CALLS 495, COMMON_10 : 
C AE DO 007A4 MOVL RO, STAT : 
oC ¢ AE : 7A8 BLBC STATUS, 48$ + 1476 
0c AE 00000000" EF § 7AC MOVZWL 10 STATUS, STATUS : 
1 C AE E8 00784 BLBS STATUS, 49$ + 1477 
¢ AF DD 00788 48$:  PUSHL STATUS + 1478 
DD 00788 PUSHL J ; 
00450060 8F DD £60 PUSHL #4522048 ; 
000000006 3 FB 7¢ CALLS #3, LIBS$STOP : 
AE p 7CA 49$: MOVL (§P), R + 1482 
00000000'FF4 ¢ ce MOVZ2WL @HEADER OFFSETCR2], R1 : 
3 A p 7D MOVL (SP : 
50 00000000'FF4 7DA MOVZ2WL @BITMAP_OFFSETCR32, RO : 
50 31 5 ¢ 7E2 SUBL3 R1, RO : 
50 0 09 00766 ASHL #9. RO, RO : 
00000000" €F 0200 CO 9E OO7EA MOVAB 512(ROS, IFILEMAP_SIZE : 
00000000" EF 9F O07F3 PUSHAB IFILEMA + 1483 
00000000" EF 9F 007F9 PUSHAB IFILEMAP_SIZE : 
000000006 00 : FB OO7FF CALLS #2, LIBSGET_VM : 
OC AE DO 00806 OVL RO, STATUS : 
16 OC AE EB OO80A BLBS STATUS, 5 + 1484 
00000000" EF 04 OBOE CLRL =«IFILEMAP + 1487 
¢ AE DD 00814 PUSHL STATUS + 1488 
00450098 8F DD 00817 PUSHL #4522136 : 
000000006 00 02 FB 0081D CALLS #2, LIB$STOP : 
7E 7C 00 24 50S:  CLRO -(§P) + 1499 
7E D4 008 6 CLRL = = (SP) ; 
52 14 AE 0 008 VL  20(SP), R2 : 
7E 00000000'FF42 3C 008eC MOVZ2WL @BITMAP_OFFSETCR2], -(SP) ; 
7E 00000000" EF 70 908 vO IFILEMAP, -(SP : 
— 7C 0838 CLRQ  =(SP) F 
00000000" EF 9F 008 PUSHAB 10 STATUS : 
1 pp 0084 PUSHL #49 ; 
7E 00000000' EF 3¢ 084 MOVZWL CHANNEL, -(SP) ; 
1A DD 0084C PUSHL #26 ; 
000000006 00 o¢ F OB4E CALLS #12, COMMON_I ; 
OC AE D 085 VL —-RO, STATUS ; 
0c OC AE : 0859 BLBC STATUS, 51$ : 1500 
OC AE 00000000" EF ¢ 08D MOVZWL 10 status STATUS : 
1 OC AE CE 6 BLBS STATUS, 52$ + 1501 
OC AE DD 00869 51$:  PUSHL STATUS ; 
DD 0086C PUSHL J F 
00450060 &8F DD PUSHL #4522080 : 
000000006 3 FB CALLS #3, LIBS$STOP : 
0 0 AF p 78 52$:  MOVL P), R : 1509 
10 AE 000000¢ "FFG ¢ r ROVZUL @HEADER_OFFSETCROJ, VBN : 
24 «AE of AE 0 78 ASHL. #2, 8(SP), 36(SP) + 1510 
51 00000000" EF 26 AE OC 53$:  ADDL3 36(SP), EOF, RI F 
61 10 AE 01 A CMPL BN, (R1) ; 
02g $9 dos, BLEU 388 
E ee A354$: CLRQ =(SP) > 1520 
7E D4 OOBA CLRL = = (SP) : 
1 AE D A PUSHL VBN : 
51 61 20 AE OC AA SUBL3 BN, (R1), R1 : 
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1 
f 
et 
00000000" GF 
00000000' ff 
7E 00000000' A 
000000006 00 of 
1 AE 
OA if AE 
1€ AE 00000000' ‘ 
00000000" EF 
3 1C AE 
00000000" EF 
0000011C 8F 1¢ “ 
A 
2 
1¢ si 
00450088 8F 
000000006 00 9 
01 sa 
28 AE A 
5A 01 
64 
50 08 ar 
59 00000000'FF4 
59 10 ag 59 
5 FF 8 =AQ 
14 00000000" FF 52 
1c ag 
9 
00450088 F 
000000006 00 
00 00000000" FF 2 
10 ag 
04 : 
004500A8 : 
000000006 00 1 
st AE 
OA C ae 
00450080 F 
000000006 00 


B 00000000" EF 
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o 
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uM 

er 


ww 
NO 
PA 
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58$: 
59$: 
0 60$: 
as 
f 094 
DD 00951 
DD a 
0D 38 
F 9 3 
E 965 61$: 
Dd 2 62$: 
8a 0097 
DD 009 
be 2 
D 63$ 
. 9 
3 9 
C 00998 64$ 


4 01:27:55 AX-11 Bliss-32 V4.0-74 
7 94:90:32 YROUNT. SRC REBUILD .B32; 
INCL RI 
MOVL READ LENGTH, RO 
CMPL SRO, Re 
BLEGU 55$ 
VL RT, R 
ASHL #9. RO, =(SP) 
PUSHL BUFFER 
CLRQ. = =< SP) 
PUSHAB 10 STATUS 
PUSHL 
MOVZWL CHANNEL, =(SP) 
PUSHL @# 
CALLS #12, COMMON_IO 
VL RO, READ_STATUS 
LBC READ STATUS, 56 
MOV ZL 9, STATUS, READ_STATUS 
CLRL 10 STATUS 
BLBS READ STATUS, 59$ 
CMPL §READ_STATUS, #284 
BNEO 
DECL READ_LENGTH 
BNEG 
PUSHL READ_STATUS 
PUSHE EL ER 
PUSHL pes52i co" 
CALLS #4, LIBSSTOP 
CMPL § READ_LENGTH, #1 
BLEQU 
MOVL § READ_LENGTH, RETRY_COUNT 
MOVL #1, READ_LENGTH 
MOVIL SNEADER OF FSETCROI F ILE_NUMBER 
SUBL3. FILE NUMBER, VBN, FILE_NOMBER 
MOVAB -1( 
BBC R2, @IFILEMAP, 61$ 
PUSHL READ_STATUS 
PUSHL 
PUSHL FI ER 
PUSHL #4522120 
CALLS #4, LIBSSIGNAL 
BBCC R2. SIFILEMAP, 62% 
INCL ‘VBN 
CMPL EJLE_NUMBER, ry 
BGTRU 6 
PUSHL #452215 
CALLS #1, LIBSSTOP 
CMPL ERR-COUNT, #10 
BLEGU 64 
PUSHL #4522160 
CALLS #l, LIBSSTOP 
MOVZWL I0°STATUS+2, BLOCKS_READ 
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8 BF C6 0099F DIVL2 #512, BLOCKS_READ : 
0 ge Ee Be cette, cn 18 
af 00000000' fF 20 AE C 383 65$: ADDL3 32¢SP), BUFFER, ‘RO : 
0 1 00988 CMPL HEADER. R : 
F 0098 BLSSU 4 : 
50 0900" EF 4 GO9C3 668: — SUBL3 BUFFER, HEADER, RO ; 1580 
8 ites ir C4 009¢ Biv rie RO : 
10 AE CO 0090 ADDL N, RO ; 
3 0000008 FFA 3 Hs HOV? L A R1), FILE_NUMBER : 
59 0 39 cs 9€2 CURLS FILE_NUMBER, fF FILE_NUMBER ; 
3¢ AE 9 BO 009E6 MOVW FILE NUMBER. FILE I + 1581 
50 59 10 FF 9EA EXTZV #16,-#8, FILE_NUMBER, RO + 1582 
41 AE 50 90 OO9EF MOVB RO FILE ID+ : 
3E oA 9A AG 80 oF MOVW  iO(HEADER), FILE_1D+2 + 1583 
C AE 9F O009F PUSHAB FILE 1D : 1584 
56 DD 009FB PUSHL HEADER : 
00000000v EF Q FB O9FD CALLS #2, VERIFY_HEADER : 
OC AE p OAQ4 VL ORR STATUS : 
1 AF FF AQ : 208 MOVAB =1(R9), 24(SP) + 1588 
a o¢ AE €9 OOAOD BLBC STATUS, 69$ : 1585 
00 00000000° FF 18 AE €2 00A11 BBSS 4(SP), @IFILEMAP, 67$ : 1588 
56 DD OOAIA 67$: — PUSHL R : 1589 
00000090v EF 01 FB Alc CALLS #1, FILE SIZE ; 
0 AE 01 AO 9E OOA MOV 1(RO), BLOCK COUNT ; 
14 14 AE 01 E1 OOA28 BBC #1, NEED REBCD, 68$ : 1590 
04 9 D1 OOA2D CMPL FILE_NUMBER, #4 : 1591 
OF 19 00A 0 BLSS ; 
E D4 OOA CLRL = = ( SP) + 1592 
34 AE DD OOA PUSHL BLOCK_COUNT : 
C A6 DD 00A37 PUSHL 60(HEADER) F 
00000000v_ EF 03 FB OOA3A CALLS #3, COUNT_QUOTA ; 
QOOA7? 31 Adi 68$:  BRW 73§ : 1585 
F4 00000000" FF 18 AE €1 00A44 69$: BBC 4(SP), a1FILEMAP, 68$ : 1597 
02 OC AE D1 OOA4D CMPL TATUS, # + 1600 
1D 13 00AS1 BEQL Os : 
0200 8F 00 6E 00 2c OA ° MOVCS #0, (SP), #0, #512, (HEADER) + 1603 
34 AE 9F OOA5SB PUSHAB TIME_BUFFER + 1604 
000000006 00 07 FB OOA : CALLS #i, SYSSGEITI : 
OA Ab 36 AE BO 00A6 MOV tA “BUFFER+2, 10(HEADER) : 1605 
Ab 0201 F B AGA MOVW #51 (HEADER) > 1606 
66 FFFF6428 8F DO OOA v 70$: MOVL #-39896, (HEADER) + 1609 
A Ab B6 OOA7 INCW  10(HEADER) + 1613 
8 A6 B4 OOAZA CLRW 8 (HEADER) > 1614 
C A6 B4 OOA7D CLRW VeCHEADER) > 1615 
O1FE ¢ 4 OOA CLRW 510(HEADER) : 1616 
E 7C OOA CLRQ (SP) : 162 
7E D4 OOA CLRL = = (SP) ; 
51 14 AE 0 OOA MOVL 20<SP), R1 ; 
0 00000000'FF41 3C OOA MOVZWL 9H ADER OFFSETCR1J, RO ; 
6049 9F OOA PUSHAB (RO)CFICE NUMBER) ; 
7E 0200 8F 3C O0A97 MOVZWL #512, -(SP) : 
6 DD OOA9IC PUSHL HEADER ; 
—E 7C OOASE CLRQ.  =(SP) : 
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oc 
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00 00000000" 
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FO 
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00450090 
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0000000° 
00000000' 
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C 
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36 


EF 
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C 
FE 


oF 

ge 

C 

dO 

F 

Dd A 
§ AB 
f AC 
E AC 
DO OOACC 
DD OOACF 
DD QOAD 
DD QOAD 
F AD 
1 AE 

AE 
. AE 
AF 

CO QOAF 
D1 QOAF 
i OAFA 
D7 OOAFC 
12 OOAFF 
9A $88) 
3) 0805 
8 0080: 
DO 0081 
11 0081 
9 p83 
E Bi 
F3 008 
7c 
D4 

0 

C 
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7¢C 
9F OOBSE 
D 00844 
C 00B46 
DD 00840 
F B4F 
D B56 
7 A 
EB OOBGE 
DD OOB6A 
DD O0BEE 
FB B75 
f : 
F 2 
F - 
dD ’ 
C ; 
C 00898 


ys 


-Sep-1984 
14-Sep-1984 


71$: 


a M2:85 82 


ae OL igs 32 v4.0 


rystaTs 
Sue. -(SP) 


ef qt 
10, 
SIA 
STA 


es 
#4, LIBSSIGNAL 


4(SP) @1FILEMAP, 73$ 
LeCR6S, HEADE 


6 
BLOCKS READ, VBN 
READ_LENGTH, #1 


RETRY_COUNT 

#64, READ_LENGTH 

#5, IFILEMAP_SIZE, RI 
FICE_NUMBER, “1 


-1(RO) 
Re. aif LEAP, 78$ 
Rig 


20(SP) 
@B1 TMAP Re SETER2I. -(SP) 
TPILEMA MAP, -(SP) 
=(SP) 
10_ STATUS 
#48 
CHANNEL , -(SP) 


10 ssiatug STATUS 
STAT és 
STATUS 


J 
#4522104 
bagel 
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16-Sep-1 27:55 AX-11 Bliss-32 v4.0-74 p 7 
1eree= she P3:25:82 — HAROAT Bhi98586 15-8555 age 3) 

¢ B90 CLRO =($P) ; 

f CLRO 33”) ; 

ve D OOBA1 mova ! =(SP) : 

00000000" EF 3C O0BA4 MOVZWL CHANNEL . -(SP) : 

6 00 ¢ PB OOBAD att COMMON. 1 ; 

e AE 8 14 MOVL i: » STATUS ~ : 
Bahu bes 

00000000v EF FB O0BB CALL #2, _UPDATE_ALLOCMAP ; 
Boosge0" EF SF bobs Rg Se core — 

000000906 00 2 FB BCF CALLS ae. LIBSFREE vm : 

C AE DO 00806 MOVL RO. STA ; 
00000000' i 4 OOBDA CLRL : 1682 
7e i 4s tg nove ale otSPD thoes 

7€ 9200 4 C OOBE MOVZWL aie) (SSP) : 

00000000" EF 0D OOBEA PUSHL FFER F 

—E 7C OOBF CLRQ OuSp P) : 

00000000" EF 9F O0BF PUS 10 STATUS : 

1 DD OOBF PUS #69 : 

7E 00000000" EF 3C OOBFA MOVZWL CHANNEL, -(SP) : 

A dD 00C01 PU #6 : 

000000006 00 o¢ FB 00CO3 CALLS #12, COMMON_I : 
~s 2 CAE £9 OOLOE sea Tre SP = 1694 

0c Ac 00000006" EF i C1 MOVZWL 10 STATUS, STATUS : 
1 C AE €8 OOCIA BLBS TATUS, 82 > 1695 
C AF DD Cie 81$:  PUSHL us + 1699 

DD O0C PUSHL J ; 

ooooo000e 00 re «BERR BBE chs ag a3) {1B8STOP ; 
Hi 00000000" EF 06 C30 82$: MOVL Gur En + 1702 
1° OA 7 BA 00C BICB2 BiRoD + 1704 
000000006 00 POO Ober CALS #1, CHECKSUM Rte 
7E Fe Bbcae nova “(SP (SP) ; 1713 

7E 0200 oF c £28 MOVZWL #512, -(SP) : 

00000000' EF D Cae PUSHL BUFFER : 

— 7C 00¢ CLRQ.  =( SP) : 

00000000' i 9F 00656 PUSHAB 10. STATUS F 

0 od 00C5C PUSHL #4 : 

7E 00000000' Ff 5¢ : mOVZWL nel -(SP) 

000000006 00 FB OOC CALLS #12, COMMON_ : 
eae: i of BLBC STATUS 5 ; 1714 

0c AE 000000 6: EF i C7 MOVZWL 10 sTAtus STATUS : 
1 C AE €E8 00C7 BLBS STAT ds + 1715 
C ar DD OOCB82 83S:  PUSHL STATUS : 1719 

DD O0C PUSHL : 

coooonne 00 9957? Be RE, EM H08E sro : 
E re (94 84%: CLR rTP) > 17246 

7E 7 00¢ CLRQ 2s =( SP) ; 


om 


ae 


EcSepctQUe QU:2T:45  YAMGLY ski sscda, ve 0s the # 


| 
¢ CLRQ 0s =( SP) : 21 
2: er ae fo] oa 
E 30000000' Ff C f MOVZWL CHANNEL, -(SP) : ; 1 
000000006 OC FB OOCAS CALLS COMMON 10 ; | i | 
9 00000000° FF £8 AF BLBC DUALLOC. 5$ + 1727 3] 
D4 Bs CLRL 0s = SP : 31 
DD PUSHL J : : 1 
00450038 8F DD OOCBA PUSHL #4522040 ; 71 
000000006 00 FB c9 CALLS #3, LIBSSIGNAL : 31 
dD C7 85$: PUSHL J 3 1731 3 1 
ot ae : : 
00000000v_ EF oF cB S SET_FREE : 31 
000000006 9F F D CALLS #4, a#SYSSCMKRNL ; 71 
0c AF 9 D DA MOVL RO. STATUS : 31 
FBDE Sa 0 F DE 86$ ACBL. VOLUME COUNT, #1, J, 40$ + 1404 31 
0040 8F 00 6E eset a 2c : MOVCS #0, (SP), #0. #64, QUOTA_FIB + 1743 ; \ 
00000000° EF D B 9 MOVW #13, QUOTA_F1B+22 + 1744 31 
00000000" EF D F MOVL #4, QUOTA FIB+24 + 1745 31 
03 14 AE “A § Fe BBS a, NEED_REBLD, 87$ + 1751 ; 
53 90000000" EF 00 oN g7$: MOVL_ USAGE_TABLE, Q t 1764 31 
50 00000000" EF 00000000" EF C1 0000D 88$: ADDL3 TABLE~SIZE, USAGE_TABLE, RO + 1766 31 
0 3 D1 D1 CMPL «6s, RR : 31 
9 1c BGEGU 94s : : 1 
52 3D DIE MOVL Q. P + 1769 31 
a 89$:  BEQL 968 + 1771 : 1 
55 0c Ag : BLBC =: 12(P), 918 + 1774 31 
00000000' EF $2 20 MOVa (P), SRC_REC+4 : 1777 31 
— 7¢ CLRQ ss =( SP) + 1784 31 
7E 7¢ CLRO = SP) : : 1 
90000000" EF 9F S SRCREC_DESC ; 31 
' cr 9 PUSHAB OF IB DESC ; 31 
— 7C 9D CLRQ 0s =( SPY : : 1 
00000000° ec 9F 0004 S 19 STATUS : 31 
8 DD 0004 SHL #56 : 3 1 
7E 00000000' Ff C 0004 MOVZWL CHANNEL, -(SP) ; 31 
A DD O0D4F PUSHL 26 ; 31 
000000006 o¢ FB 00051 CALLS » COMMON ; 31 
oC A D 8 MOVL RO STATUS ; 31 
oC ¢ AE : BLBC STATUS, 90$ ; 1786 31 
j 0c Ag 00000000" EF c MOVZWL 10 status STATUS : 17 31 
1 C AEE BLBS STATUS, 91$ : 1788 31 
¢ AE OD C 90$ PUSHL STAT : 1789 31 
004500 af DD 5 PUSHL #4522000 ; 31 
000000006 ; FB 00075 CALLS #2, LIBSSTOP : 31 
08 A p D7C 91$: MOVL Bch). Pp : 1798 31 
9F D BRB 9$ : 177 : 1 
53 10 ¢ D82 92$: ADDL2 #16, @ : 1797 3 1 
6 BRB 8s : 1766 31 
00000000" EF BO 00087 93$:  MmOVW #8, QUOTA fjB+22 > 1811 31 
00000000' cf D CLRL  QUOTA_FIBT2 : 1 \¢ 21 
— 7¢ 00D CLRO = = (SP) : 181 : 4 
7E 7C 00096 CLRQ 2s = (SP) ; : 1 
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rR WESeoctgue QU:GZ8E  YASGAt 84!99z33,¥6-0524 | 
7E 04 00098 CLRL-=( SP) ; He 
dood" FF 9F B0D9A PUSHAB OF 18 DESC : 
00000000' §F $F BOOKS PUSHAB 19) STATUS : | 
‘ i RP ODA ROVZUL CHANNEL, ~(SP) ; s | 
wren! Ea PUSHL ; 2] 
PB OODBS CALLS #12, COMMON, 10 3 3 
mate BAe | me Rg, i swne] | 
RE . WL 10_STAfUS, STATUS : :4 
of moons EB | Bue Teta, apt |p 
00450028 8F bb Ob MS: PUSHE | Base o024 ; : | 
0000000" EF § 80 donde 958: Rove” #11, QUOTA F 18422 i 1824 i 
u000000p hE Des BBS #1, NEED_REBLD, 96$ ; 1850 24 
a ee er i DODED 968:  MOVL, USAGE_TABLE, : 1842 : | 
50 00000000" EF OOOdbOEO" EF C1 OODFS ofS; ADDLS TABLE-SIZE, USAGE_TABLE, RO ; | 
so 2 Be Raat 
52 06 E MOVL @, P * 1849 31 
73 93 Ooc0s oes: Bede ~—1618 2 183 He 
01 £1 OOEOA BBC =o #1, 12(P), 1008 ; 21 
% sof oS 5D beers mova HBA 1988 4g ; 1855 : | 
80000000" EF 04 AE Db OOEIA MOVE DEFAULT_GUOTA, SRC REC+12 i 1897 1] 
00000000" EF E o0 6 Bain | A edit : 1864 : 
ze Ze Sess BUSHAB SREREC_DESC ; i] 
So00000' EF $F QOESS PUSHAB ar 1 DESC i 
E 7C 00E39 cLRQ. = =(SP : a 
00000000" EF 9F OOE PUSHAB 10, STATUS ; : | 
8 DD 00E41 PUSHL #58 ; 24 
7E 00000000' EF Sc O0EGS MOVZWL CHANNEL, -(SP) i 
. EGA PUSHL #2 : He 
Same {4 35 58 OOE VL RO, STATU poet : | 
Te ofr 8 3 MOVZUL et * SraTus : 1867 i] 
oe te ORE EB OOF : LBs STATUS, 1608 ; 1868 ; } 
00450016 BF DD QOEGA © PUSHE «452300 i] 
0000000 82 FB OOE CALLS #2, LIBSSTOP S ae7s : | 
. . 08 AS 06 er 100s: ROVE (. : 1848 
53 19 69 ef 1018 ADDL2 sie. Q 184 
FE ; 
: #0, DELETE TABLE ; 
50000000" Ef 0101 4 ee ERA ~— nOVZUL # 57, QUOTE FIB Bs 
20000000; Et ; ah E 9A MOVE #6$538. QUOTA, F1B+6 i; 1896 
10000000" EF 00010002 gF i Ens BOVE §— #92538, el i 
CLRQ = = (SP) : 
FE be QOEAD CLRL == (SP) : 


a 
me OE ee Cr" r = 
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00000000' ai F OOE PUSHAB OFIB_DESC : 
, 2E 2C QOEB CLRQ = = (SP : 
0000009 ti f OO0EB PUSHAB 10 STATUS : 
? F 9A OOEB MOVZBL #174, =(SP) : 
E 00000000' FF C OOEBD MOVZWL CHANNEL, =(SP) : 
A DD O0EC4 PUS Hes : 
000000006 00 of FB OOEC6 CALLS #12, COMMON_IO : 
C AE DO OOECD MOVL RO STATUS : 
0c or AE 5 ED1 BLBC STATUS, 103$ : 1903 
OC AE 00000000" EF ¢ EDS MOVZWL 10 STATUS, STATUS + 1904 
1 C AE €E8 OOEDD BLBS STATUS, 104$ + 1905 
C AF DD FE! 103$ PUSHL STATUS + 1906 
00450048 F DD OOEE6 PUSHL #4522056 : 
000000006 00 3 FB OOEE CALLS #3, LIBS$STOP ; 
E 7C OOEFS 104%: CLRO - + 1913 
7E gi 7D OOEF Ova = #1, _=(SP) : 
7E 0200 F 3C OOEF MOVZWL #512, -(SP) : 
00000000' EF DD EF PUSHL BUFFER : 
B. OFO CLRQ. = =(SP) : 
00000000' fF OF OOF PUSHAB 10 STATUS : 
1 pp OOF 08 PUSHL #4 : 
7E 00000000° FF C 00FOD MOVZWL CHANNEL, -(SP) : 
A DD 00F14 PUSHL 42s ; 
000000006 00 oc FB OOF 16 CALLS #12, COMMON_IO : 
OC AE D0 OF1D MOVL RO, STATUS ; 
0c Oc AE : OF 21 LBC = STATU + 1915 
OC AE 00000000" EF 3C 00F25 MOVZWL 10 STATUS, STATUS + 1916 
1 OC AE E8 OOF2D BLBS STATUS, 16 : 1917 
OC AE DD OOF 1 105$:  PUSHL STATU : 1919 
oI DD OOF PUSHL #1 : 
00450068 8F DD OOF PUSHL #4522088 ; 
000000006 Q 03 FB OOF ¢ CALLS #3, LIBS$STOP F 
0 00000000" EF DO 00F43 1068: MOVL 8B FER RO + 1921 
1¢ =A 08 8A OOF4A BICB2 #8, 28(RO) : 
50 0D OF4E PUSHL : 1922 
000000006 00 01 FB OOFS CALLS #1, CHECKSUM ; 
E 7C 00F57 CLROO=C§ : 1929 
7E of 7D 00°59 MOVQ #1, =(SP) : 
7E 0200 8F 3¢ O0F5C MOVZ2WL #512, -(SP) : 
00000000' EF DD OF 61 USHL BUFFER ; 
E 7C 00F67 CLRQ. = SP) ; 
00000000' FF 9F 00F69 PUSHAB 10 STATUS ; 
0 po FGF PUSHL #48 : 
7E 00000000' EF 3C O0F71 MOVZWL CHANNEL, -(SP) : 
A DD 00F78 PUSHL a2 ; 
000000006 00 o¢ FB OOF7A CALLS #12, COMMON_IO F 
OC AE DO 00F81 MOVL RO, STATU F 
0c ¢ AE f F85 LBC = STATUS : 1931 
0c AE 00000000" EF ¢ F MOVZWL 10 STATUS, STATUS : 19 
1 C AE E8 OOF BLBS STATUS, 16 : 19 
¢ aE DD OOF9S 107$: PUSHL ATUS : 19 
DD 9 PUSHL #1 ; 
00450070 8F DD OOF9A PUSHL #4522096 : 
000000006 00 3 FB FAQ CALLS #3, LIBSSTOP ; 
— 7C OOFA? 108%: CLRO -(§P) : 1938 
7E 7C OOFA9 CLRQ = = (SP) ; 
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12-8 Sep =138 9}: 2g: 32 MOUNT SRCIREBGILD b3e05 * i 
+ 1486 i IF NOT .STATUS 
: 1485 1 THEN 
; 16 14 RBLD_EXIT (RBLD$_READSCB, .RVN, .STATUS); 
: 14 1 ' If either extent or file number caching was in effect, the 
1488 17 5 f dlgkees dnee potetiglan, 9 
: 1490 18 i 
: 1491 1 
; 1498 020 2 IF -BUFFER CSCB$V_MAPALLOC2) 
; 1493 6 1 R .BUFFER CSCBSV_FILALLOC2) 
: 1495 6 7 FLAGS CBITMAPS) = 1; 
: 1499 0 . ' The QUODIRTY flag i l l f l 1 
Py H e a Ss on relevant for volume e 
: 1498 036 3 . . 
: 1499 0 
: 1500 028 2 IF .BUFFER CSCBSV_QUODIRTY2) 
: 1501 029 AND .RVN EQL T 
3 1308 030 N 
: 150 2031 FLAGS CQUOTAS) = 1; 
: 1504 205¢ 
: 1505 P 203 DO_10 (CHAN = . CHANNEL, 
: 1506 2034 FUNC = 10$_DEACCESS); 
: 1507 2035 
; 1508 2036 1 END; ! of routine CHECK_SCB_STATUS 
O3FC 00000 CHECK_SCB_STATUS: 
-@ORD Save R2,R3,R4,R5,R6,R7,R8,R9 3: 1955 
59 000000006 00 9€ 00002 MOVAB LIBS$STOP, RO - F 
58 000000006 00 9E 00009 MOVAB COMMON_1I0, F 
57 00000000' EF 9E 00010 MOVAB I0_STATUS, R7 ; 
SE BC AE 9E 00017 VAB  =68(SP), SP F 
7E 40 8F 9A 0001B MOVZBL #64, SBM_FI + 1973 
04 A 08 AE 9E OO01F MOV SBM_FIB, SBM-FIB_ : 
56 08 Ac 0 00 cf 900 4 EXTZV 40, #2, FLAGS_IN; FLAGS : 1983 
0040 &8F 00 6E = 00 C 99 A MOVCS Sp)" #0,-#64, SBM_FIB > 1985 
08 AE 01 00 00 ; MOVL #1, SBM-F : 1987 
10 AE 04 AC B80 000 MOVW = RVN SBR F : 1988 
OC AE 00020002 gf D0 9 ¢ MOVL #131074, ~$on. Paes : 1989 
E 7C 0004 CLRO = = (SP) > 1995 
7E 7€ 00 46 CLRQ = = (SP) : 
7E 04 0004 CLRL = = (SP) F 
14 AE OF OO4A PUSHAB SBM FIB_D ; 
ze 7C 00040 CL (SP) : 
3 DD 0004F PUSHL R7 ; 
7E 72 «BF 3A 091 MOVZBL #114, -(SP) F 
7E FA A? 3C 3 MOVZWL CHANNEL -(SP) ; 
1A 0D PUSHL ; 
$8 F B CALLS »_COMMON_10 : 
5 D c MOVL RO STAT us = : 
06 5 6 BLBC = STATU : 1997 
67 3¢ 00064 MOVZWL 10_ WS tus’ STATUS F 
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ROUTINE GET_EOF (BUFFER, RVN) = 

'e¢ 

! 

i Functional Description: 

This routine finds out the actual EOF of the currently open index 
file by (1) es gle the index file record attributes and (2) looking 
for the highest active file header as per the index file bitmap 


= taking the maximum. This is minimized against the actual file 
size. 


Calling + a 
standard 


Input Parameters: 
none 
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saved copy es index file H 
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3 ' computed EOF 


EXTERNAL ROUTIN 
LEFT_ON 


3 3 1 

: a 
3% 40 1 

3 1 041 : 

; i a8 13 

3 1 44 1! 

3 7 045 1! 

s 3 ek 1! 

3 1 047 1! 

3 3 98 1! 

3% 049 1! 

3 Y 050 1! 

: ge 

:1 0 i 1! 

: gs 

21 056 1! Implicit Inputs: 

: HT tlt 

: 15 059 1 ! Output Parameters: 

- af | | nn 

: 15 0 ; 1 ' Implicit Outputs: 

+ is 

: 15 065 1 | Routines Called: 

2) oe 

: 1541 068 1 ! Routine Value: 

i RR tp = 

> 1544 2071 1 | Signals: 

He Bg yp 

> 1547 C's 1! Side Effects: 

: 1548 075 1! none 

3; 1549 ore 1! 

3; 1550 077 1 !-- 

; 1551 078 #1 

: 188 O60 9 CeCIN 

> 1554 1 2 BUILTIN 

; 1555 ORs ROT; 

0 Bh 

F 1328 o 5 BUFFER : REF BBLOCK; ! block buffer arg 
:4 OCA 

3 1364 6 : — STATUS, ! general status value ; 
; 7 $6 BITMAP_SIZE, ' number of blocks in index file bitmap 
3 } 6 HIBLK, } IBLK 
:1 

3 1 

: 1 
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9 
voo-000 1eSep-19be 12:45:34 — EROUNT. SRCSREBUILD832; ca 


Read the index file header and the the EOF stored therein. 
| 


Hors SI7E = .BUFFERCHM2$W_ IBMAPSIZE); 
TUS”= DO_IO ¢ , 


; AN 
10S8 
P 


vuvvUvU 


SRLESFENLLS 


SZSZ3 
IIIB PVT BE BE MMA MAPIPIPIPIPIPIPIPIPIPYPIPPIPPIPUPIPPIPIPIPIPNPINPD 
So 

° 

“ 

" 

» 
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G 

“mM 

~ 

cx 

mm 

2 

“ww~vov 

——. —_ 

> 

“ 

Cc 

nw nunnnurc 
° Wie ee-we 
xz—-Woon 
mma Fz 
AS 
i=) 
mm 
a >m 

LJ 

‘o < 
n” @ 
~n Ld 
wn” x 
m oy 
“4 
DD 
<< 
2 
‘ 
— 
ws 
+ 
=" 


fF = ROT (.BBLOCK CBUFFERCFH2$W_RECATTR], FATSL_EFBLK], 16) - 1; 
BLK = ROT (.BBLOCK CBUFFERCFH2SW_RECATIRI, FATSL_HIBLKJ, 16); 


: aoe ecan the volume's index file bitmap backwards, looking for the highest 
i . 


At nt a a nd a dt 


MEUN —O OONOVUNE WN "OO OCOVNOU SW 


+ J FROM .BITMAP_SIZE -1 TO 0 
BEGIN 


SSLESRAN LSE SSVEARAVAS SANS APMIS OS 


a ee a ke te ad nt a = = = 8 = a 
ee ee a ee a td a dd ed od dd dd dd 2 


Be Se Se Se Se Se Se Se Se Se Se Se Se Ge Ge Ge Ge Se Ge Fe Se Ge Ge Se Ge Ge Ge Ge Ge Ge Se Se Se oe SH Ss Se FF Se Se Se Se Se Ge Se Se Se Se Ge Se Se ee Se Seas 


MAP BUFFER : REF VECTOR: 
Pp STATUS = DO_IO (CHAN = .CHANNEL, 

Pp FUNC = 10$ READVBLK, 

Pp 108 = 10 STATUS, 

Pp = .BOFFER, 
600 P a = 51 
601 Pp P = .BITMAP_OFFSETC.RVN-1) + .J 
608 iF gSTATUS THEN Status = .10_STATUSLO); 
$be THEN RBLD_EXIT (RBLDS_BITMAPERR, .RVN, .STATUS); 

DECR I FROM 127 TO 0 
608 DO 
609 BEGIN 
610 IF .BUFFERC.1) NEQ 0 
611 8 THEN 
i BEGIN 

61 40 EOF = MAXU (.J#4096 + .1*32 ¢ LEFT NE ( .BUFFERC.1)) 
614 41 + ,HEADER_OFFSETC.RVN-T), 
615 4¢ EOF); 
618 4 RETURN MINU (.EOF, .HIBLK); 
61 44 END; 
618 45 END; 
61 46 END; 
620 4 
621 48 0 
622 & END; ! end of routine GET_EOF 
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RE 
STATUS, 
FFER, 
= .10_ STATUSEO): 
RBLD hi (RBLDS_BITMAPERR, .RVN, .STATUS); 
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.EXTRN LEFT_ONE 


OFFC 00000 GET_EOF:.WORD Save R2,R3,R4,R5,R6,R7,RB,RI,R10,R11 : 2038 
8 00 -"" “WOVAB COMMON _f0, : 
i Mitts § cr $5 } cova 10 STATUS R10 : 100 
3 0 Ni ¢ MOV ZWL BRI. BITMAP_SIZE : 
ze ¢ CLRQ - =(SP) + 2107 
—E D4 CLRL 0s = (SP) : 
6 08 AC 00 MOVL RYN, R6 : 
0118 DAG6 3E MOVAW  @HEADER_OFFSETCR6], RO ; 
FE ad 3¢ MOVZWL =2(RO),~=(SP) : 
E 06 A INCL ( : 
7E 0200 BF 3¢ C MOVZWL #512, -(SP) : 
7 bo PUSHL 7 : 
— 7C CLRQ. = (SP) : 
3A DD PUSHL 1 : 
1 0D PUSHL #4 : 
7E FA AA 3C 9 MOV ZWL CHANNEL , -(SP) ; 
1A 0D PUSHL : 
68 F F CALLS » COMMON_10 ; 
D : MOVL nd rSLATUS ~ : 
0 é BLBC = ST > 2108 
5 A f 8 MOVZWL 10 WS tus. STATUS ; 
1 : E 48 BLBS STATUS, 2$ : 2109 
DD 0004E 1$ PUSHL STATUS + 2110 
08 AC DD 0005 PUSHL RVN ; 
0045006 i DD 9 3 PUSHL #4522080 : 
000000006 My FB CALLS LIBSSTOP : 
1c OA 10 9 9060 2s: ROTL ng (R7), RO + 2112 
54 FF A0 9E 906 MOVAB -1(RO), EOF ; 
18 A? 1 ¢ 069 ROTL a6, beh. HIBLK : 2113 
008E 31 00 6F BRW F 3119 
7E 7¢ 00071 3$ CLRQ a sp) + 2129 
7E D4 0007 CLRL = = (SP) ; 
50 011C DAS6 3E 0007 MOVAW @BITMAP_OFFSETCR6], RO : 
50 70 3¢ 6 7B MOVZWL -(RO), RO : 
6340 9F 0007E PUSHAB (J)(ROJ ; 
7E 0200 8F 3C 00 1 MOVZWL #512, -(SP) : 
DD 0 PUSHL 7 : 
E 7C 000 CLRQ. = (SP) : 
3A DD A PUSHL R19 : 
D C SHL 4 2 
7E FA AA 5c 8 mOV ZL CHANNEL, -(SP) : 
68 F 94 CALLS » COMMON_10 : 
D 97 VL — RO STATUS : 
Q ; 9A BLBC STATU : 2130 
A ¢ MOV2WL 10 o,status, STATUS ; 
1 8 E A BLBS = STK i ; 3131 
DD OOOAS 4$ PUSHL STATUS : 2132 
; AC DD OO0A PUSHL RVN ; 
0045006 F OD PUSHL #4 82080 ; 
000000006 09 3 FB CALLS #3, LIBSSTOP : 
F 9A 00085 S$: MOVZBL #07 | ; 3134 
F aren D5 00089 6$: TSTL (1 : 2137 


sa 
i 
5 


| 
, 


woof £—UIOoUIO Ofrw 


0 


; Routine Size: 266 bytes, Routine Base: 


-$ 
“$ 


oa 
~N 


OVW UM VIMVIMNOUIUI FU FNoow 


OFPUWN OOF FW UNIO O— OM 


moo 
i=) 
a 


MMODOOWOS FPOvVIVUMOlLorornmoa —— 


SOOOQOOOCOOOOOOOOOOOOOOOOSoOo 


FMP MRM KF FOD -"OOOM OOM - Do —" Wow 


SOWA NOS $9 9909 $F OWMMON NINN 


7$: 
3 

0 

00 

OOFC 8$ 
OOFF 9$ 
01 

Fe 0104 10 

01 11 
0109 12 


SCODES + 1148 


CAPA oe oe 


n19b6 92:25:32 


AX-11 Ol igscze V4.0=74 
MOUNT. SRC JREBUILD.B32; 


HIBLK, RO 
1, 6$ 
J, 10$ 
11s 
3$ 
RO 
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E 


— 


rout tne ALLOCATE_TABLE: novalue = 
begin 


NAVE 


i Calling Sequence: 


VW 


SOSSTESESESES POCO CORLL ERS, 


3: 1 1 ; 
3 3 1 : 
i] i | ; 
: i gi : 
; } ! $ i Functional Description: : 
; } ; 8 Initially allocate the usage table : 
:1 1 : 
3 3 189 ' $ 
3 ; 18¢ Normal : 
31 164 i Input Parameters: : 
1 165 2 | ; 
5 2 ihe ; 
: ¢ 189 Implicit Inputs: 
5 | ees 7 
31 g 7 i Output Parameters: ; 
3 3 17 : : 
2) ; 
; : ? 178 Implicit Outputs: : 
; 1 § 178 i TABLE SIZE The size, in bytes, of the usage table ; 
3 3 1 : ENTRIES IN TABLE The number of buckets in that table : 
; 1038 199 USAGE _ TABLE Hash table into which entries are made : 
we fig ft : 
; 1028 : 3 external routine : 
: Hb +s ; LIBSGET_VM: addressing_mode(general): ! allocate virtual memory : 
; 1 1 local é 
3 1608 1 : 
3 1664 1 STATUS; é 
3 1909 131 : 
: ie 138 Compute the size of the hash table 3 
51 195 2 ; 
: 1670 Hb TABLE SIZE = max(16*((512/DQFSC_LENGTH)*.QUOTA_EOF - 1), 16*511); é 
: 1671 19 ENTRIES_IN_TABLE = .TABLE_SIZE/T6; : 
ee BBS ; 
3 1674 i Allocate the table 3 
18h 3 : 
; 1877 g STATUS = LIBSGET_VM(TABLE_SIZE, USAGE_TABLE); : 
; 1879 5 if not .STATUS then : 
; 1680 begin : 


vo~O00 1S5e0-9 7:25:32 EAOUNT. SkcSee@uLD -032; ne 
USAGE TABLE = 9: 
-. BLDO_EXIT(RBLDS_MEMALLOC, .STATUS); 


chSfill(O, .TABLE_SIZE, .USAGE_TABLE); 


eee Ge Ge ee Gee 
— 2 —) —4 bd _ 
VP 
—-§ ~OOO 
Wr—O0Oo~ 


end; 
007C 00000 ALLOCATE_TABLE: 

“WORD Save R2,R3,R4,R5,R6 : 2151 

56 00000000' + MOVAB TABLE SIZE. R6 F 
50 38 Ab 0 ASHL as, QOOTA_EOF, RO : 2196 

50 1 4 bo04 MULL2 #16, RO : 

OOOO1FFO BF 5 bt 13 CHL R0. #8176 : 

50 1FFO tf 3 9oi¢ MOVZWL #8176, RO : 

66 9 D 0 1 1$: MOVL RO, TABLE_SIZE ; 
04 Ab 66 1 3 0 4 DIVL3§ #16, TABLE SIZE, ENTRIES_IN_TABLE : 2197 
08 Aé SF 00 PUSHAB USAGE_TABLE : 2203 

000000006 0 03 Pe bo05e CALs Og artlesger_vm ; 
99 £8 000 BLBS Sth $§ : 3205 
08 As D4 90 CLRL Ssace taSLE : 2207 
50 DD 000 PUSHL sil Tus : 2208 

00450098 8F DD 000 PUSHL #4522136 : 

000000006 00 2 FB 0004 CALLS 2 LIBSST : 
66 0 6E at a 2¢ O04, 2$: movCS #0. (SP), 90. TABLE_SIZE, @USAGE_TABLE ; 2211 
04 00051 RET > 2213 


; Routine Size: 82 bytes, Routine Base: S$CODE$ + 1255 


; 1688 2214 1 


en 


—> —) 4 > 
—_ 


BSSLSAEALNLS 
MEAN" O OONOUN EWN "OOO VNA 


SSLESESENLS 


ts 


CNAME WO OONOULSWN oO 


MSWN—OO® 


Mew 
PAAAMMUIVNIVIIE SEBEL LLL 
DONA ULS WIN" O0OnO 


a a ke a a 
SSNS SSN NII IOC COCCOCOOCH 


Fay oY oY oy oY oy 
QOunFwn—o 


MSSeeeseRes 


rbosenrt9ee 1:27:55 yanett Ligs-32 v4.0-76 


fous tne COUNT_QUOTA(UIC, USAGE, PRESCAN): novalue = 
begin 


se 
7 Functional Description: 
Add an entry to the usage table. The usage table is a hash table 
whose key is the UIC which is to be stored there. Overflow 8 handled 
by chaining each Sashes, 
| catting Sequence: 
COUNT_QUOTA(.UIC, .USAGE, .PRESCAN); 


{ Input Parameters: 


VIC The UIC of the file in queptten 
USAGE The number of blocks used by that file 
PRESCAN 1, if this entry exists in the old QUOTA.SYS 


| InpLiett Inputs: 

USAGE _ TABLE The hash table itself 
{ Output Parameters: 

None 
| Imptiei Outputs: 

USAGE _TABLE The hash table itself 


external routine 

LIBSGET_VM: addressing_mode(general); 
local 

Q: ref block(4); 


: The hash function 


macro 
h(UIC) = UIC mod .ENTRIES_IN_TABLE 2%; 


; Hash on the UIC into the usage table 


Q = USAGE_TABLEC h(.UIC<O,$bitposition(UICSV_FORMAT)>), 0,0,32,0 J; 


| f 


9 
Wb-Sen-1984 01:27:55 YAN-11 BLige=52 4.0274 


~~ 
BES 
—~ 


: Search the chain for the entry which matches our UIC 


while $55 NORMAL do 
begin 


> >>> 
NOUS WN 


Compare the UIC field of each chain member against our UIC 
5 if not .QCUTB_V_INUSE] then 

ee begin 
$6 QCUTB_L_UIC] = .UIC; 
6 QCUTB-L-USAGE] = .USAGE; 
64 QCUTB-V~PRESCAN] = .PRESCAN; 
65 Q YIB -VINUSE = 1; 

exitloop; 
4] p 
68 


end 
else if .QCUTB_L_UIC] eql .UIC then 
begin 


QfUTB_L USAGE] = ,QCUTB_L_USAGE] + USAGE; 
Q UTB-V_PRESCAN] = .QCUTB-V_PRESCAN) or .PRESCAN; 


exitloop; 


SSBVSEALANLSSRIEALEN AS Sao rows 


=PINAWIN NNN BS BEB PUREE EEE PAL EEE EE E&P MNNIIInnonononen) 


SSNS SSS SS SSS 
SANS NSO 
VMiFUN—oO”o 


a ee a a aa mk hk ak a a at a a ts 2 a 4 i = 2 


76 01 end 
77 o else if .QCUTB_A_NEXT] eql 0 then 
re ? begin 
780 05 LIBSGET_VM(uplit(16), QCUTB_A_NEXT)); 
781 ch$fillTO, 16, .QCUTB_A_NEXTJ); 
7 . 0 
7 08 end; 
7 09 
785 10 ‘ 
ree 11 : Try the next entry in the chain 
44 \¢ : 
7 1 
789 14 Q = ,QCUTB_A_NEXT); 
790 15 
791 1 end; 
a4 1 
79 18 end; ! end of routine COUNT_QUOTA 


-PSECT SPLITS,NOWRT ,NOEXE 2 
00000010 OO00C P.AAF: .LONG 16 


-PSECT SCODES,NOWRT,2 


st 


voe~000 HesSee9Be QU:2E:HE  YASGLY Shag v6. 83083 


007¢ 00000 COUNT_QUOTA: 
WORD 


Save a ee Re. R6 


0 06 A 16 00 FF EXTZV a0. #360 
E 1 7A MUL 
5 00000000' FF 78 EDIV ENfnie ‘sn. rate (SP)+, RO, RO 
56 00000000' FF ci 18 ADDL USAGE TABLE, RO, Q 
” eg 4 AC 4 ” obva ure 450) és 
OC Ab 01 ge AC F A INSV PRESCAN #0, #1, 12¢0) 
OC Ab 0 8 l BI $82 
04 AC 6 »} 0 23: CMPL Q), UIC 
é : A BNE 
04 Ab 08 ac C¢ C ADDL2 USAGE 
- wot oe % oc ke BB OO0e? Bisay Beatle “i2{o), 0 
OC Ab 01 00 5 Fp we INSV , #0, #1, 1200) 
08 A ge ite 3$: meh (Q) 
1 03 8 5 : BNEO 
08 Ab OF 0 PUSHAB 8(Q) 
00000000' F OF A PUSHAB P.AAF 
000000006 00 63 FB 00 60 CALLS 43, LIBSGET_VM 
10 00 6E 3 2c 49 MOVC #0, (SP), #0, #16, a8(Q) 
56 3 A6 DO 00g 4$ MOVL 8(Q), Q 
AD 11 000 BRB 1$ 


; Routine Size: 116 bytes, Routine Base: SCODE$S + 12A7 


3 1794 2319 1 


a5 
Sc 


—> —> —) —) —) —5 —) dd — 4 


SSeSoS ses 


pete bet 
Wr—OOC 


a ab HB Wt 


MOTVTOROTORIPUT 


NOVUESWUN “OOONOUS 


SeBSRSSEERRE 


Se 


FRLALEKKAG 


ee ee eee SS 


MO DONO USWN—O 


9 
HESeocH9Rs QU:dz:8E  YARGAY.Shgacbd 84-8304 Pane) 


REB) 
vOe 
1 7 R 
1 fous the DELETE_TABLE: novalue = 

begin 


t+ 
i Functional Description: 


This routine deletes the usage table and returns the space to 
the free storage pool. 


i Calling Sequence: 
Standard 
Input Parameters: 
None 
Implicit Inputs: 
USAGE _TABLE The table to be disposed of 
i Output Parameters: 
None 
Implicit Outputs: 


Oe 


BEBE EEF BWANA AARON 


None 
Routine Value: 
None 


external routine 

LIBSFREE_VM: addressing_mode(general); 
local 
e ref block(4], 


AA. ANNI 
FUSS 


att te 


UR SO OONAUES WN OS ODNANE WN OO OONAUNE ARO OOBNOUS WN O 


: Check all the Link pointers in the table 
Q = USAGE_TABLECO, UTB_A_NEXT); 


: Deallocate all the chained entries first 


PIII 


wiv 


MEAN OONOULW 


SasereT 


o 


ONOUSWN—O”O 


a ne St nt a ts ht tt a a tt tt 


2.0009 00 09 09 09 CD CO 
SOSO000000000 0000900 C0 C9 CoC COCDCO NIN“ 


MO OCONAVUVS WN" OCONOULS WN OVO 


SNS NSN NS 


FPP 


vw 


a 9 
16-Sep-1984 01:27:55 
13-88-1382 Se 
seg geqa .USAGE_TABLE+.TABLE_SIZE do 
P= ..Q; 
until .P eql 0 do 
begin 
d 


R= .P; 
P = .PCUTB_A_NEXT); 
LIBSFREE_VM(uplit(16), R); 
end; 
Q= .Q + 16; 


b 
en 
Deallocate the table itself 


LIBSFREE_VM(TABLE_SIZE, USAGE_TABLE); 


end; ! end of routine DELETE_7ABLE 


-PSECT S$PLITS,NOWRT ,NOEXE,2 


00000010 00010 P.AAG: .LONG 16 


~PSECT SCODE$,NOWRT,2 


003C 00000 DELETE_TABLE: 
- WORD 


Ow 


55 000000006 00 9€E 00002 MOVAB LIBSFR 
54 00000000' EF 9€ 00009 
SE 4 C2 0001 SUB 
64 08 C1 0001 ADD 
64 F8 A&G C1 00017 18: ADDL3 T 
0 53 D1 O00IC CMPL 86 
1 1F BGequ 4§ 
52 D 1 MOVL (Q) 
p 024 2%: (4) ae 
1 0 6 BEQL 3% 
66 52 D MOVL P 
5 08 A2 D OVL 
SE pp F PUSHL SP 
00000000' FF F J PUSHAB 
65 Fe 
F 1 A 8 
53 £0 C 3$: ADDL2 #16, Q 
06 11 F BRB 1$ 


Save R 


NOVA USAGE TABLE. R4 
L3 #8. USAGE_TABLE 


, a 
ABLE SIZE, USAGE_TABLE, RO 


P.AAG 
CALLS ae LIBSFREE_VM 


sg HESREcHOR BUSSE WAU AMEMAEEW: BRS oe ig] 
54 DD 4] 48: PUSHL R4 : 2400 : 
sR Me le fhee 3 
04 0004 RET 2402 


; Routine Size: 74 bytes, Routine Base: $CODE$ + 1318 


; 1879 2403 1 


Be Se Se Se Se Se Se Be Se Se Se Se Se Se Se Ge Se Se Ge Se Se Se Se Se Se Ge Se Ge Ge Ge Se Sse Se Ge Fe Se Se Ge Se Se Se Se Se Se Se Se Se Se Se Sete se Se Seseace 
ARoOPIPIPIAIAIAIPINPINIPININIPIPUIAIPIAINININIAIPI PIPPI PI ARI PAI PIA PIP PU PIRI PIPPI A) 


LEC Sea ewe ere ee cee a 


333 


Routine Value: 
Signals: 
none 


Side Effects: 
none 


BEGIN 
LOCAL 


REBU 1bese -1984 01:27:55 AX-11 Bliss-32 V4.0-74 Pa 7 
vive eet oe ts rie ee a rR a Pe CP ve 6) 
; ri ¢ ROUTINE MARK_ALLOC (COUNT, LBN) : NOVALUE = 
Bi top yi 
5 rts Functional Description: 
88 219 i This routine marks the specified blocks as allocated in the allocation 
eae r} bitmap. 
890 218 i Calling Sequence: 
$3) ti8 } standard 
£98 418 i Input Parameters: 
$98 “18 1 i come 
8 419 i Implicit Inputs: 
Boe 420 ! 3 none . 
cee 
$00 8 | 
308 5 i Implicit Outputs: 
rst S none 
905 8 i Routines Called: 
906 2 : none 
14] 
gyi 
4 ! 
5 ! 
6 ! 
7 ! 
8 ! 
9 ! 
0 !- 


St th eh heh eh et ek et et et et et et te et 


Dk et ee ee teh nh ah eh ah ah teh eh oh od 


POPIPIPYINIPINIPYNININININININININININININPYNYD 


CLUSTER_NUMBER, ' Cluster bit number 
CLUSTER_COUNT, ' Count of clusters to mark allocated 
; ! Bitmap index 


31> / ,ALLOC CLUSTER; 


CLUSTER_COUNT = .COUNT<O 


POH Ss tv ee 
SSO NOURUWN"OOONOUEWN—O 
m 
Peer 
PRESS 
oo wr 


ee ee ee mm ee ee a ed ed ed ed ed dd ed dg od od dd 


DODOOOOOOOODODOODODOOODODOODOOODOOONO 
PIAA AAI PIPOPPOPONOPINPPYDY) 8 8 9 tt 


450 2 CLUSTER-NUMBER = .LBN<O,$1> / .ALLOC_CLUSTER; 
451 INCR J FROM .CLUSTER NUMBER 
43¢ to MINU (.CLUSTER_NUMBER + .CLUSTER_COUNT, .ALLOCMAP_SIZE * 8) - 1 
1 454 BEGIN 
: 455 IF NOT .ALLOCMAPL.JJ 
436 THEN DUALLOC = 1 
4 ELSE BLOCKS AVAIL = .BLOCKS_AVAIL = .ALLOC_CLUSTER; 
5 458 ALLOCHAP .JJ = 0; 
8 460 END; ! end of routine MARK_ALLOC 
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4 
é 
é 
¢ 
g 
g 
é, 
ra 
r4 
g, 
g, 
ra 
¢. 
é, 
3 
g. 
é: 
g. 
r4 
r4 
4 
r4 
3 


vou~000 


51 
50 


3; Routine Size: 


04 AC 
08 Ac 


77 bytes, 


04 


oo —-oO 

on wo 
> 
> 


Routine Base: 


10 
a 


001C 00000 nn pa 


1986 92:4 


ORD 

omnes EF oF 0 MOVAB 
09 EF 900 ex? 

38 C6 O18 DIVES 
g EF B18 EXTZ 
C6 1¢ DIVL 
1 9 OO1F ADDL 
93 8 000 ; ASHL 
¢ Di 000 CMPL 

9 18 00028 BLEQU 
1 4 0020 MOVL 
50 D7 00030 1$: DECL 
14 11 00032 BRB 
50 £0 O88 2$: BBS 
01 00 00039 MOVL 
04 11 44 Dd BRB 

53 ce OO3F 3$: SUBL2 
50 ES 00043 4$: BBCC 

52. F2 00048 5$: AOBLSS 
04 0004C ET 


SCODES + 1365 


7: 
5: 


5 AX=-11 
4 MOUNT. 


Save R2,R3 % 


LLOCMAP, 
Loc, LOSTER 
Ne COUN "CLUSTER. COUNT 


CLUSTER 
“0. ie et BN Oe USTER _NUMBER 
welt STER A CLUSTER, NUMBER, R2 
ALLOCMAP_SIZE, R 
* RI 
, R2 
@ALLOCMAP, 3$ 
i. DUALLO 


ag, abt orks AVALL 
J LOCMAP, 
23," iC at 


Fi 
EELELLELLG S= 


DONO VE WO ODNOUE WOO 


—> ee 3 4 tt 


woOOOOODON0O0O 


PAAMAAMNAIY 


SEER Ss ts tt SERERPR ABEL tr a ser 3 


ce ec ce ee ce ee ee ee ee ee ee ee ee eed eed eed 


3 


49 


Se Ab AD AD AD AD AD AD Ab Ab Ab Ab Ab Ab Ab Ab Ab Aten 
apnea enteand —SSFoee 
NOurun—ooe Mw — 


RIP IMP IP IPIPIAININIPIN INI IIIA a td de ed 


FUNCTIONAL DESCRIPTION: 
file header. If 

Calling Sequence: 
Standard 

Input Parameters: 
none 

Implicit Inputs: 
none 

Output Parameters: 
none 

Implicit Outputs: 
none 

Routines Called: 
none 

Routine Value: 
none 

Signals: 


none 
Side Effects: 
none 


BEGIN 
MAP 
HEADER : REF BBLOCK, 
FILE_ID : REF BBLOCK; 
LOCAL 
MAP_AREA : REF BBLOCK; 
EXTERNAL ROUTINE 
CHECKSUM; 


: First check the structure level. 


If ME ApERCFHCSS_ STRUCLEV] NEQ 2 
THEN RETURN 0; 


p-198¢ 12:45:86 EROUNT. SR 


This routine verifies that the block given it is in fact a 
le number and/or file seqence number are also 
supplied, they are checked as well. 


' file eed arg 
! file 1D arg 


pointer to header map area 


! compute file header checksum 
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3 3 1 

s 1998 ' Check the area offsets and the retrieval pointer use counts for 
3 ; j consistency. 

3 § If .HEADERCFH $01 or ese! LSSU SBYTEOFFSET (FH2$L RISHMATER) /2 

3 § OR .HEADERLFHeSB_MPOFFSETJ LSSU .HEADERCFH2SB_ IDOFFSET 

; 5 OR .HEADERLFHeSB_ACOFFSETJ LSSU .HEADERLFH?SB_ _MPOF FSET 

H § OR .HEADERLFH2SB_RSOFFSETJ LSSU .HEADERLFH $e ACOFFSET 

; 2005 OR .HEADERCFHOSB_MAP_INUSE) GTRU .HEADERCFH2SB_ACOFFSET] = .HEADERCFH2$B_MPOF FSET) 
3 3 THEN RETURN 0; 

3 Q ! at this fetat. we have verified that the block at least once was a 
: % 1 : valid fi header. 

3 O14 H § ' Look at the file number in the header. If zero, this is a 

3 Big ! deleted header. 

3; 201 5 ! 

: 2016 § 

; 2015 5 IF .HEADERCFH2$W_FID_NUM) EQL 0 

3 O18 5 3 AND .HEADERCFH2S6_F IB_NMX) FOL 0 

3 ote 378 THEN RETURN 2; 

: 019 541 ! Now compute the header checksum. 

: $020 54g 3 a 

3; 2021 54 

: 20 § 544 IF NOT CHECKSUM (.HEADER) 

3 ° ee? THEN RETURN 2; 

: ; i sey 8 : Check file number and file sequence number. 

> 20 549 

3; 2028 550 IF .HEADERCFH2$W_FID_NUM] NEQ .FILE_IDCFIDSW_NUM) 

3 2029 551 OR .HEADERLFH $B- FID- NMXJ NEQ .FILE_ID FID$B- _NMXJ 

: ; : 22§ THEN RETURN 2; 

3; 20 4 554 IF .HEADERCFH2$SW_FID_SEQ) NEQ .FILE_IDCFIDSW_SEQ) 

3; 20 555 THEN RETURN 2; 

; 20 228 

3; 2035 55 ' Header is ok. 

3; 20 238 ! 

3; 20 55 

; 20 560 RETURN 1; 

3 B78 2) 

; 0 62 END; ! end of routine VERIFY_HEADER 


0004 00000 VERIFY_HEADER: 
WORD : 2461 


° R2 ; 

5 4 A 9 0002 MOVL HEADER, R2 : 2516 
33 $7 A 0006 CMPB miRD) 2 ; 
6 OOA BNEQ &y ; 

26 g 9 00C CMPB (R2), #38 ; 2523 
D 1F OO000F BLSSU 4$ : 
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; 2555 


R2), 5(RO) 
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Routine Base: S$CODE$S + 1382 


113 bytes, 


3; Routine Size: 


10 
1$-Sep-1984 01:27:55 yanett BLigges2 v4_0274 


ROUTINE READ_HOMEBLOCK (BUFFER, RVN) : NOVALUE = 


e+ 
' 


! Functional Description: 


This routine reads the first good home block of the currently open 
index file into the buffer supplied. 


i Calling Sequence: 
standard 


i Input Parameters: 
none 


NO 


> ee 


PUPUPUIVIVPUSVLVSVSVSVSVSVSVSTSISISIOSIS 
pon ee —1 FRANISSSISALS 


i Implicit Inputs: 
: none 


i Qutput Parameters: 
none 


ate 


i Routines Called: 
none 


PUPA AAVILAT 


BO LSSSIER 


CEPR IPIPIPIPIFIPIFIPIPIRIP III 8 tt a dd et ed 


Oe 


' 

' 

' 

' 

' 

' 

' 

' 

' 

' 

' 

' 

' 

' 

' 

: Implicit Outputs: 
: none 
' 

' 

' 

' 

; Routine Value: 
' 

' 

' 

‘ 

‘ 

' 

' 

' 


ort none 
7 i Signals: 
698 594 : - none 
Bre 95 : 
75 38 ! Side Effects: 
B78 9 none 
07 338 
078 5 -- 
079 600 
608 BEGIN 
¢ BUFFER : REF BBLOCK; ! block buffer arg 
LOCAL 
60 US ' general status value 
6b8 OLD_STATUS; i Save status for error message 
1 
$1 ' keep reading until we get a block that reads without errors and Looks 
ols } Like a home block. Track any error status for the eventual error message. 
614 2 
615 OLD_STATUS = SS$_ABORT; 
eis puch VBN FROM 3 To #00 
oi8 BEGIN 
P 261 STATUS = DO_IO (CHAN = .CHANNEL, 


oa 


H 10 
vou~000 1e-8ep-1986 92:45:38 — EROUNT. SRCSREBUILD- B32: Pee if} 


: Pp 9 FUNC = 108 READVELK, 

5 el Pp | SB = 10 STATUS, 

3; 21 & = OOrFeR. 

3 él P 6 pP2. = $12, 

: ; P ¢ . = .VBN 

; ! é $ IF .STATUS THEN STATUS = .10_STATUSCO); 

: 21 6 IF NOT .STATUS 

3 a’ 6 § THEN 

; 1 6 Q OLD_STATUS = .STATUS 

: 21 6 ¢ IF CHECK_HOMEBLOCK (.BUFFER, .VBN) 

3 21 6 THEN RETORN; 

: ; : ND; ! end of loop 
; i 6 RBLD_EXIT (RBLDS_HOMEBLOCK, .RVN, .OLD_STATUS); 

21 638 1 END; ! end of routine READ_HOMEBLOCK 


003C 00000 READ_HOMEBLOCK: 
WORD 


. Save R2,R3,R4,R5 : 2563 
5 00000000" EF MOVAB 10 STATUS, RS : 
4 C MOVL 44%, OLD_STATUS > 2615 
2 2 MOVL #2, VBN + 2625 
E CLRO 0s = (§P) ; 
43 CLRL = (SP) : 
5 PUSHL 3 
7E 0200 &F MOVZWL #512, =(SP) : 
ie PUSHL BUFFER 
35 PUSHL 5 : 
1 PUSHL Hey : 
7E FA AS MOVZWL CHANNEL, -(SP) ; 
1A PUSHL #2 : 
000000006 99 CALLS #12, COMMON_IO : 
MOVL RO STATUS ; 
06 BLBC STATUS, 2$ > 2626 
MOVZ2WL 10 STATUS, STATUS ; 
5 BLBS TUS, : 36 8 
4 MOVL § STATUS, OLD_STATUS > 2630 
OF BRB 4$ : 
2 PUSHL + 2632 
04 A PUSHL BUFFER : 
00000000v FF CALLS #2, CHECK_HOMEBLOCK ; 
A BLBS RO, 5$ ; 
87 52 00000064 8F AOBLEQ #160, VBN, 1$ : 3616 
og it mat gaya fe 
00450088 BF PUSHL #4522144 ; 
000000006 00 3 CALLS #3, LIBSSTOP Bans 


——__ ——_-—- —— -—-—- --—_-_ 7 c- 
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3; Routine Size: 107 bytes, Routine Base: S$CODES + 1423 


IReetges UsRbst ARG uocH SB rane 


en 


ROUTINE CHECK _HOMEBLOCK (HOME_BLOCK, VBN) = 
tee 
FUNCTIONAL DESCRIPTION: 


This routine verifies whether the given block is a Files-11 Structure 
Level 2 home block. 


' Calling Sequence: 
standard 
! Input Parameters: 
none 
Implicit Inputs: 
none 


Output Parameters: 
none 


OONAVE WO OONAUE WOO 


Implicit Outputs: 
none 
Routines Called: 
none 


Routine Value: 
none 


SESESESSS SOOO TOD OOSE SESE SE SES, 


SS. 


Signals: 
none 


Side Effects: 
none 


SAN NNN 


MEW OS OONOUS WIN —O 


PAPAS 


HOME _BLOCK : REF BBLOCK; ! home block buffer 


EXTERNAL ROUTINE 
CHECKSUM2; ! compute home block checksums 


: Check the required non-zero fields and compute the checksums. 


ee ee ee ee ee ee ee ee ee ed ed ed ed 


No oan RAP Abe StAy eth ttehh At Abt Sy PP Lt tat ery eee tere ah Ne ty ae Ne ar 


CAAA AILAALAPOPOPIPIPIPPIPDPNDINIAI a a at nt tn nt sk at tt st st nt tn kk tk kt tk kk tt tt 


IF NOT ¢ 
6 - HOME _BLOCKCHM2SW Oven) QL _ .VBN 
4 AND - HOME =BL ck HM2SL “AL TIDXLON NEQ 
3 AND .HOM SWICLU NEQ 8 
69 AND “HORE ~BLOCKEHA yt fOMEVE NEQ 
694 AND .HOME BLOCK - $W “ALHOMEVB N) NEQ 
695 AND “HOME ~BLOCKEHA SWIALTIDXVBNJ NEQ 


—————— co 


K 10 
BU $ep-1984 7:55 AX=-11 Bliss-32 V4.0-74 Page 76 REB! 
Vee O00 1exgeR=]38e 93:22:32 HANGAT Shigers2 Ve. Os7 9° 12) vOe 
: 21 696 AND - HOME -BLOCK FHM W_IBMAPVBN) NEQ 
3 21 3 AND .HOME-BLOCK i “IBMAPLBN) NEQ 
; 21 38 AND “HOR BLOCK HR i =AAXF ALES 3" Q 
: 21 AND . WW IBMAPS NEQ 0 
3 21 AND . HSB eel i ‘yea 0 
: 21 7 AND ¢ ere EOF FSET CHMZSu_CHECKSUMT) ) 
; : , é AND Has (HOME ratte sByTEOrES SET (HM2$WCHECKSUM2) ) 
: 21 704 2 THEN RETURN 0; 
+ 2185 705 
3 189 f RETURN 1; 
3; 21 708 END; ! end of routine CHECK_HOMEBLOCK 
.EXTRN CHECKSUM2 a 
000¢ 00000 CHECK HOMEBLOCK : bese nl ae 
J Hee e 
af cmmoooges op pomea Catte N om 
10 a2 10 060 F 0000 CMPZV , a6, Tech), VBN : 
4D 0014 BNEQ : 
08 A2 D 0016 TSTL ber) 3 2691 
48 13 0001 BEQL =s«1$ : 
OE A2 B 0018 TSTW  14(R2) 3 2692 | 
43 13 0001 BEQL «1S 3 
10 a2 B 99 TSTW =: 16 (R2) : 2693 
3E 13 000 BEQL 1 ; 
12 A2 B5 000 TSTW  18(R2) > 2694 
39 1 90 8 BEQL «i$ : 
16 A2 B 0 A TSTW 40(R2) + 2695 
34 13 00020 BEQL $ ; 
16 A2 8 002F TSTW  22(¢R2) + 2696 
2F 13 00032 BEQL =ss«éa1$ : 
18 A2 05 000 TSTL  24(R2) + 2697 
2A 13 00037 BEQL =s«1$ F 
1¢ Ag d5 00039 TSTL  28(R2) : 2698 
25 13 0003C BEQL =s«d1$ : 
20 A 2 003 TSTW  32(R2) : 2699 
2 9 4} BEQL 4 =so1$ ; 
22 A2 B 4 TSTW  34(R2) : 2700 
B 1 46 BEQL FF ; 
A DD 0004 PUSHL #58 : 2701 
DD 0004A PUSHL R F 
63 FB 4C CALLS #2, CHECKSUM2 : 
11 § 4F LBC ~=—s-_s«aRO,._*18 ; 
7E O1re BF 3C ; MOVZWL #510, -(SP) : 2702 
DD PUSHL R F 
3 FB 9 CALLS #2, CHECKSUM2 : 
4 E C BLBC ~=E._—s«aRO,_-*18 ; 
0 1 Bo F MOVL #1, RO : 2706 
50 pA es 1$: CLRL = RO : 2708 
4 RET ; 
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3 
BUILD.B32; 


ROUTINE RBLD_HANDLER (SIGNAL_VEC, MECHANISM) = 
'e¢ 


Functional Description: 


This routine is the main condition handler for the DISKQUOTA utility. 
It receives a signal which is either an internal error code or a 
standard system status. If the former, the appropriate meeeere is 
eleatlan printed. For the latter, the condition is simply 


' Calling Sequence: 


standard 
Input Parameters: 
none 


Implicit Inputs: 

none 
Output Parameters: 

non 
Implicit Outputs: 

none 
Routines Called: 

none 
Routine Value: 

n 

Signels: 

none 


Side Effects: 
none 


BEGIN 
MAP 
SIGNAL_VEC : REF BBLOCK, ! signal vector arg 
ME CHANTSM : REF BBLOCK; ! mechanism vector arg 
LOCAL 
FORMAT_DESC : VECTOR C2), ! siring descriptor for message format 
: REF VECTOR C,BYTEJ, ! string pointer 
ERR_CODE : BBLOCK (4); ! error status code 


EXTERNAL ROUTINE 


LIBSPUT OUTPUT =: ADDRESSING_MODE (GENERAL), 
LIBSFREE_VM : ADDRESSING_MODE (GENERAL); 
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So 
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owono 
ooo 


IF .ERR CODE NEQ 0 
THEN Cn CODE NEQ SS$_UNWIND 


BEGIN 
ERR copECsTSsv peyenitea * STS$K_WARNING; 
-* ~ERR_CODE 


CoOCooo 
MEWN—oO 


47 166 ! Get the signal code. If it is one of ours, get the message string and 
re 7 ! do formatting as necessary. 
r Los : 
1 183 ERR_CODE = spi Guat VEC CHES, SIG_NAME); 
; 771 2 IF TERR_CODECSTSSV-FAC_NOJ EQL FAC_CODE 
ak THEN 
4 77 BEGIN 
55 774 ERR_CODE = .ERR COPEL ST SEN E M . _NOJ; 
2$ 775 P = .MESSAGE TABLE FRR. cob 
176 FORMAT _DESC(O) = .PL1J; 
28 77 FORMAT-DESCL1) = .P + 2; 
ore OUTPUT_DESCLO] = OUTPUT_LENGTH; 
rst 444 OUTPUT_DESCL1J = OUTPUT_LINE; 
6¢ P 2781 $F AOL yp he = FOR v0 DESCCOJ, 
$e P ree OUTLEN = OUTPUT_DESCLOJ, 
64 P 278 OUTBUE = OUTPUT_ pere 0] 
265 P 2784 PRMLST = SIGNALVECCCHFSL_S1G_ARG1] 
$508 785 
: 786 LIBSPUT OUTPUT (OUTPUT_DESC); 
$e 788 ! If there is a signal argument remaining, it se a system error status. 
2e7 2789 i Convert its severity to warning and signal it 
227 790 i 
ssi 791 
27 ge in* = 0; 
$27 79 IF TSIGNAL_VECCCHFSL_SIG_ARGS] GTRU .PCO] + 3 
27 THEN 
ssf $132 BEGIN 
7 796 ERR_CODE = .VECTOR CSIGNAL_VECCCHFSL_SIG_ARG1J, .PC0J]; 
327 2797 END; ' 
2e7 § END; 
228 
228 2 
$38 5 
$8 ; 
2 


Ie 
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MECHANISMCCHFSL_MCH_SAVRO) = 
IF a CSIGRAL “WECLCHFSL_ sic NAME], STSSV_SEVERITY] EQL STSSK_SEVERE 


BEGIN 
: THe - CLEANUP_FLAGSCCLF _UNLOCK] 


OES LL i FIBSC_LENGTH, QUOTA_FIB);: 
_UNLK_VOL; 


FI 
QUOTA. Fi Bu CATRLFUNC) = FIBSC 


HANNEL 
= j0$ ACPCONTROL 
= QFIB_DESC 


erry 
S8e 
vv0vD 


ri 
' CLEANUP.  ELAGSECLE UNLOCK) = 0; 
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Cancel the exit handler. 
SCANEXH (DESBLK=EXIT_HNDLR_DESC); 
SUNWIND (); 

END; 


oOOnO 
N 
data 


& 


+ 2304 3 3 
; 5 : 4 IF .USAGE_TABLE NEQ 0 : 
3 HY 5 THEN DELETE_TABLE (); : 
; 2308 $ IF .BUFFER NEQ 0 : 
° 09 3 THEN ° 
; 2310 4 BEGIN : 
> 2311 830 4 LIBSFREE_VM (UPLIT (BLOCK_FACTOR®512), BUFFER); : 
; 19 831 4 BUFFER ="0; : 
t S314 338 : : 
; 2315 8 4 IF .EOF NEQ 0 : § 
; 16 5 THEN ; 
3; 231 836 4 BEGIN i 2 
; 2318 837 4 LIBSFREE_VM (DYN_SIZE, EOF); i @ 
; 2319 838 4 EOF = 0; : § 
; 2 i 859 END; ig 
: 33 é 841 IF .IFILEMAP NEQ 0 2 
; 232 seg THEN 34 
; $ese 2843 4 BEGIN i @ 
: 2325 2844 4 LIBSFREE_VM (IFILEMAP_SIZE, IFILEMAP); 72 
; 2326 2845 4 IFILEMAP™= 0; 7 ¢ 
Be HG . 3 
; 2399 o848 ; IF ALLOCMAP NEQ 0 ; § 
3 $334 2850 4 BEGIN ga 
3 2332 2851 4 LIBSFREE_VM (ALLOCMAP_SIZE, ALLOCMAP); : 2 
; 333 g85¢ 4 ALLOCMAP™= 0; i¢ 
$33 At : : 5 
; $ea0 $39 IF ,OLD_ALLOCMAP NEQ 0 : § 
; 9338 sBep 4 BEGIN : 2 
3 2339 2858 4 LIBSFREE_VM (UPLIT (512), OLD_ALLOCMAP); i ¢ 
> 2340 2859 4 OLD_ALLOCMAP = 0; 7 ¢ 
> 2341 860 END? i ¢ 
: 53¢8 B62 :§ 
3 2344 : IF _.ERASE_CHANNEL NEQ 0 : ¢ 
3 2346 4 BEGIN | : 
; 34 4 SDASSGN (CHAN=.ERASE_CHANNEL); ; 
: 4 ERASE_CHANNEL = 0; | : 
; $ END; : 
; 33 DO_I0 (CHAN = .CHANNEL | 3 
: $39 FUNC = 10$_DEACCESS); | : 
: 235 3 
3; 235 a4 
: 339 i ¢ 
: 5 e 4 
; $2 e§ 
3 5 : ¢ 
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! end of routine 
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RBLD_HANDLER 


$PLIT$,NOWRT ,NOEXE ,2 
32768 
12 
LIBSPUT_OUTPUT, SYSS$FAOL 
SYSSDASSGN, SYSSUNWIND 
SCODES,NOWRT ,2 
Save R2,R3,R4,R5,R6,R7,RB 
COMMON 10, R 
LIBSFREE_VM, R7 
9 TPUT_DESC, R6 
IGNAL_VEC, R4 
4(R4) ERR CODE 
#6, #12, ERR_CODE, #69 
#3, #13, ERR CODE, ERR_CODE 


MESSAGE TABLECERR.CODEJ, P 
1(P), FORMAT DE 

2(R35, FORMAT DESC+4 

#132, OUTPUT_BESC 
OUTPUT_LINE, OUTPUT_DESC+4 
8(R4),~R5 

RS 

R6 

R6 

FORMAT_DESC 


#4, SYSSFAOL 
#1, LIB$PUT_OUTPUT 
CODE 


7. RO 
»_R1 
- RI 


5)CROJ, ERR_CODE 
ERR _CODE 
ERR_CODE, #2336 


#7, ERR_CODE 
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3$ 

11$ 

#0, (SP), #0, #64, QUOTA_FIB 
5 QUOTA_F 18*22 


rd 
#12, COMMON_10 
USAGE TABLE 


#0, DELETE_TABLE 
UFFER 


BUFFER 

P.AAH 

#2, LIBSFREE_VM 
BUFFER 

EOF 

6$ 


EOF 
DYN_SIZE 

#2, LIBSFREE_VM 
JP ILEMAP 

IF ILEMAP 

IF ILEMAP_SIZE 
#2, LIBSFREE_VM 
IF [LEMAP 
ALLOCHAP 

CMAP 
CMAP_SIZE 
LIBSFREE_VM 
CMAP 
OLD_ALLOCMAP 
OLD -ALLOCMAP 

#2, LIBSFREE_VM 


OLb_ALLOCMAP 
GRASE_CHANNEL . RO 


$ 
ALLO 
ia 
We, 
ALLO 


R 
e YSSDASSGN 
ERASE_C 


S 
E _CHANNEL 
) 
) 
) 


See Se Se Se Se Se Se Se Ge Se Se Se Se Se Se Se Se Se Se Fe Se Ge Se Ge Be Se Be Se Se Se Se Se Se Se Se Fe Fe Fe Ge Se Se Be Fe Ge Se Se Fe Fe Se Se Fe Fe Se Be Se Se 
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7E FF6E (6 3C 00165 MOVZWL CHANNEL, =(SP) 
1A DD OO16A PUSHL 
- 0c 13 oF 16F Srey He AMOUR BESC 
000000006 00 01 FB 0017¢ CALLS SYSSCANEXH 
; 7¢ 0017 CLRO p 
000000006 90 02 FB 001 CALLS #2, SYSSUNWIND 
0 01 DO 0018 11$:  MOVL #1. RO 
04 001 RET 


; Routine Size: 390 bytes, Routine Base: SCODES + 14F4 


F 11 
voe~000 1er$ep-1986 92:45:84 EROUNT. SRCSREBUILD-832: 


ROUTINE RBLD_EXIT_HNDL : NOVALUE = 


5 
1+¢ 
Fucntional Description: 
This routine is Get tee by fhe OS on exit (for whatever reason) from 
91 the DISKQUOTA uti ty. This routine must ensure that DISKQUOTA did 
95 not leave things in an awkward state. 


Calling Sequence: 
standard 


Input ah haar 
one 


Se Se Se Oe Se Oe Se Ge ee Ge SO Ss Oe Se Se Gees 


anette ramon 


aman” attic 


BSS SSSSSSSSsseSs 


IIAP IP IPMN III at at tt tk tt kn kt kk kk ht tt 


i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
' 
i 
i 
i 
inptte te ones 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 


: $388 

; 91 Routines Called: 

3 BP 

: 9% a4) Routine Value: 

3 95 set? none 

; 3$ 915 Signals: 

3 B'S - 

+ 2400 918 Side Effects: 

3 2601 91 none 

3; 240 92) 

Be BBR 

; 405 9 § BEGIN 

; 409 3 5 2! 

: 24 9 $ ' Make sure that DISKQUOTA did not leave a volume LOCKED. 
: $298 3 ' 

: 2611 $ ‘IF .CLEANUP_FLAGSCCLF_UNLOCK) 

: ie 9 ‘THEN 

> 261 931 BEGIN 

+ 2614 93; CHSFILL (9 FIBSC_LENGTH, QUOTA FIB) 

+ 2615 93, QUOTA_FIBCFIB$W_CRTRLFUNC) = FIBSC  UNLK _VOL; 
3 aig pe A 10° (CHAN = Y PRANNEL 

> 261 P 2975 FUNC = J0$_ACPCONTROL, 

: 418 P 29 Pi = OFIB_DESC 

3: 261 ); 

PSG eae Fake 

; 222 2940 END; ! end of routine RBLD_EXIT_HNDL 


if 
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-Sep-19 MOUNT. SRCJREBUILD.B32; (14) 
oe Seeee — Save R2,R3,R4,R5,R6 2884 ; 
e ave e ° ° Py . 
56 00000000" EF 9€ MOV TA_FIB, : : 
0040 8F 00 6E 5 3f : move’ rie (SP), #0, #64, QUOTA_F IB : 2932 ‘ 
16 Ab ; 0 0001 MOVW #8, QUOTA_F1B+22 + 2933 ; 
E 7¢ 0001 CLRQ = = §p) ; 2937 ; 
¢ 1 CLRQ = = (SP) : ; 
E 19 CLRL = = ( SP) : 
6C A6 9F 00018 PUSHAB QFIB_DESC : 
C 1 CLROQ =(SPJ a 
7E D MOVO #56, (SP) : 
7E FF2E ; C MOVZWL CHANNEL, -(SP) : 
A dD PUSHL : 
000000006 00 OC FB A CALLS #12, COMMON_IO : 
04 00031 RET + 2940 


; Routine Size: 50 bytes, Routine Base: S$CODE$S + 167A 


Be Se Se Se Be Se Se Be Se Be Se Se Se Se Se Fe Se Ge Ge Se Ge Fe Se Se Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Se Ge Ge Se Se Se Ge Se Se Ge Ge Ge Se Se Se Se Se Ge Ge Ge Ge ee. 


: 


NEw OONOUE 


| keh eh eh eke het eke eke ee 


SESes 


SS 


CONOULWIN OO 


ooovnd 
en 


Oo 
w hee wert 1 


OO0O00 


SS3SE8 


ROUTINE FILE_SIZE (HEADER) = 
ed 
FUNCTIONAL DESCRIPTION: 


This routine computes the number of blocks mapped by the specified 
file header. 


CALLING SEQUENCE: 
FILE_SIZE (ARG1) 


INPUT PARAMETERS: 
ARG1: header address 


IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 


number of blocks in header 
SIDE EFFECTS: 
NONE 


. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
] 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
i] 
. 
' 
. 
! 
. 
' 
. 
' 
. 
' 
. 
' 
- 
' 
. 
' 
. 
le 
. 


BEGIN 

HEADER : REF BBLOCK; ! file header arg 
LINKAGE 

L_MAP_POINTER = JSB : 

GLOBAL (COUNT = 6, LBN = 7, MAP_POINTER = 8); 

GLOBAL REGISTER 

COUNT = g. ! retrieval pointer count 

LBN 7 ! retrieval pointer BN 

MAP _POINTER = 8; ! pointer to scan map area 
LOCAL 

FILESIZE; ! size of file 


EXTERNAL ROUTINE 
GET_MAP_POINTER : L_MAP_POINTER; ! get value of file map pointer 


: Scan the map area. Count up the file size from the retrieval pointers. 


H 11 
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1b-bep-1986 01:27:55 yARoIt Bligs-32 4.027 o0¢ 8? 
erat -MAP_POINTER GEQA .HEADER + (.HEADERCFH2$SB _MPOFF SETI + - HEADERCFH2$B8_ MAP_INUSEJ) * 2 

GET RAP PO 


TLESITE . 
make ALLOC ( 
END;~ 


2 
ca 


# 
Seoee oe 


w 


RETURN .FILESIZE; 
END; ! end of routine FILE_SIZE 


TETRIS ISTE Te Te Te Ie Te 
BELL LL 


~o 
= 
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.EXTRN GET_MAP_POINTER 
OFFC 00000 FILE_SIZE: 
WORD 


° Save R2,R3,R4,R5,R6,R7,RB,RI,R10,R11 : 2941 

54 04 9 2 CLRL Ss FALE I2E + 2996 

04 AC DO 00004 MOVL HEADER, R2 + 2997 
01 Ad 9A 00008 MOVZBL 1(R2), R3 ; 
6243 3€ o¢ MOVA (Re) ERS MAP_POINTER : 

3A A2-—s«O9A:00010 18 MOVZBL S8(R », RO + 2998 
0 53 CO 00014 ADDL2. 3, RO ; 
0 6240 3€ 00017 MOVAW (R3)CROJ, R : 
50 58 D1 0001B CMPL MAP_POINTER, RO : 
131 OO1E BGEQU 2$ ; 

000000006 00 16 000 JSB GET_MAP_POINTER : 3001 

54 4 90 $ ADDL2 COURT, FILESIZE : 00¢ 

E $ D MOVO COUNT - -(SP) : 300 
FC88)SsCCEF 02 FB 90 ¢ CALLS #2, MARK_ALLOC ; 

pd 11 00031 BRB 1$ : 2998 

50 4 00 00033 28 MOVL  FILESIZE, RO : 3006 

04 000 RET : 3008 


3; Routine Size: 55 bytes, Routine Base: SCODES + 16AC 
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ROUTINE SET_FREE (RVN) : NOVALUE = 
'e+ 
' 


i Functional Description: 


This routine sets the number of free blocks in the volume control block. 
This routine must be called in kernel mode. 


i Calling Sequence: 
Seandare 


i Input Parameters: 
none 

i Implicit Inputs: 

i none 


i Qutput Parameters: 
none 


i Routines Called: 
none 


VEN O OONOUES WN "OOOO 


i Routine Value: 
none 

i Signals: 

: none 


' 

' 

' 

' 

' 

' 

' 

' 

' 

' 

' 

' 

' 

i] 

' 

' 

: Implicit Outputs: 
: none 
' 

J 

' 

' 

t 

' 

] 

' 

' 

: Side Effects: 
: none 
' 
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SPI OIPIMIPIM IP IPI IN ININIIY a nd tt tt tt kk kk kh dd 


BEGIN 
$ LOCAL 
50 RVT : REF BBLOCK, ! pointer to relative volume table 
51 ucB : REF BBLOCK, ! pointer to volume UCB 
38 vcB : REF BBLOCK; ! pointer to volume VCB 
4 EXTERNAL aout ie 
55 GET_CHANNELUCB; ! get UCB assigned to channel 
3$ UCB = GET_CHANNELUCB ry CHANNEL); 
38 vCcB = .UCB ucest _y 
RVT = .VCBLVCBSL_ 
If .RVT NEQ .UCB™ THEN" UCB = .VECTORCRVTCRVTSL_UCBLSTJ, .RVN - 1); 
1 VCB_= .UCBCUCBS$L 
; VCBLVCBSL_FREE 2’ BLocks AVAIL; 
END; ! end of routine SET_FREE 


v0o~000 


at 
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.EXTRN GET_CHANNELUCB 

000C 00000 SET_FREE: 


.WORD Save R2,R3 : 
7E 00000000° FF 3¢ MOVZWL CHANNEL ; =(SP) : 3009 
000000006 1 * CALLS #1, GET CHANNELUCB ; 
34 AO D MOVL 3 (uCB)> VCB ; 58 
0 as D 1 MOVL (VCB), RVT : 305 
3 : 18 CMPL RyT, uc ; 
1 Re Dd O00lp nn : 
; % azai D MOVL 64 (AVI) ERI ucB ; 
34 AO D 6 18: MOVL 2(UCB), V : 3061 
40  A3 00000000" EF 00 0002A MOVL § BLOCKS_AVAIL, 64(VCB) : 06¢ 
04 00032 RET : 306 


; Routine Size: 51 bytes, Routine Base: SCODES + 16€3 
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ROUTINE UPDATE_ALLOCMAP (RVN, ERASE_REQUESTED) = 


144 
' 


i Functional Description: 


This routine writes a new storage bitmap (BITMAP.SYS) to the 
specified volume. Before writing each block, the existing 

storage map is read and compared ape ines the new 3° If blocks 
are being returned to the storage bitmap, they may be erased before 
the bitmap is updated. 


Calling Sequence: 
standard 


Input Parameters: 
ARG1 : relative volume number (RVN) of this volume 
ARG2 : boolean. Determines whether or not to erase blocks that 
are returned to the available pool of blocks. 


Implicit Inputs: 
OWN storage defined at the beginning of this module. 


Output Parameters: 
non 


Implicit gaia 
CHANNEL : I/0 channel to current volume 


Routing Value: 


Signals: 
. RBLD$_ACCBITMAP : BITMAP.SYS could not be opened or read. 
RBLD$_WRTBITMAP : A write operation to BITMAP.SYS failed. 
RBLDS_ERASEBLKS : Error erasing blocks returned to bitmap. 
Side Effects: 
Areas of the disk may be erased. 


BEGIN ! Start of UPDATE_ALLOCMAP 
LINKAGE 
I1OC_CONVERT = JSB (REGISTER=0, REGISTER=1, REGISTER=4, REGISTER=5; 
REGISTER=1) : 
PRESERVE (2,3,4,5) 
NOTUSED (6,7,8,9,10,11); 
BUILTIN 
MOVPSL; ! VAX-11 instruction to fetch PSL 


EXTERNAL ROUTINE 
ERASE BLOCKS : ADDRESSING_MODE (GENERAL), 
GET_CRANNELUCB, 
IOCSCVT_DEVNAM : IOC_CONVERT ADDRESSING_MODE (GENERAL), 


411 
- - $é73 - = .0- RUJ 
vOu-000 er8sb-19be 2:45:32 — EAOUNT. SRCSREBUILD 0354 Page 43) vos 
LIBSFREE_VM : ADDRESS GEN 
LIBSGET_0M : ADDRESS GEN 


SSes 


LITERAL 


3 121 ; 
; 1 $ 
3 1 : 
3; 2610 125 DEVNAM_ SIZE = 15, ! max length of a device name ° 
; $1) ! § MAP _VBN = 2: ! first VBN of storage map : 
3 eg 1 8 LOCAL > 
3 2614 1 CURRENT_PSL : BBLOCK (4), ' current PSL : 
3: 2615 150 BIT_COURT, ' # of adjacent reclaimed clusters ; 
3 $18 131 BUFPTR : REF BITVECTOR, ' current buffer pointer for file : 
3; 261 1 ¢ CURRENT_DEV : BBLOCK COSC$K_S BLN ! device name descriptor ; 
3 o18 1 Vv : BBLOCK CDEVNARM_SIZEJ, ! device name buffer : 
; 261 134 ERASE_STATUS, ! holds erase operation status ; 
; 2620 135 RVT : REF BBLOCK, ! pointer to Relative Volume Table : 
3; 2621 1 § STATUS, ' saves local status values : 
3; 26 ; 1 ucB : REF BBLOCK, ! pointer to Unit Control Block ; 
; 26 138 VBN, ' current Virtual Block Number in file ; 
3 re ¢ 13 vcB : REF BBLOCK; ! pointer to Veiume Control Block : 
: 26 141 2! : 
3; 26 § 146 ! If this routine is being called from USER mode, then disable the « 
; 2628 14 ! erase to prevent an ACCVIO when trying to examine the device data : 
s i 9 ee ! base. : 
3; 2631 168 MOVPSL (CURRENT_PSL); ! Fetch the current PSL ; 
3 Os Fe UF CURRENT PSLEPSLSV_CURMOD) EQL PSLS$C_USER : 
3: 2634 149 ERASE_REQUESTED = 0; : 
Be RRS, : 
3 e37 136 : Open the storage allocation bitmap file (BITMAP.SYS) on the volume. : 
3 2639 154 QUOTA_FIBCFIBSL_ACCTL) = FIBSM_WRITE OR FIBSM_NOWRITE; . 
3; 2640 155 QUOTA_F IBLF IBSW_FID_NUM) = FIDSC_BITMAP; PF 
3 2641 136 QUOTA_F IBLF IBSW_FID_SEQ) = FIDSC_BITMAP; 3 
: one 130 QUOTA_FIBCFIBSW_FID_RVN) = .RVN; : 
3 2644 P 3159 STATUS = DO_IO (CHAN = .CHANNEL : 
> 2645 P 3160 FUNC = 10$_ACCESS OR IOSM_ACCESS, : 
3 2646 P 3161 10SB = IO_STATUS, 3 
3 2647 P 166 Pi = QFYB_DESC ; 
3: 2648 16 ); 3 
3 2649 164 2 IF .STATUS THEN STATUS = .JO_STATUSCO); ; 
3; 2650 165 IF NOT .STATUS § 
3 2651 166 THEN 3 
3 636 186 RBLD_EXIT (RBLDS_ACCBITMAP, .RVN, .STATUS); : 
> 2654 1 i F 
: 2655 190 ' For each block in the bitmap. read the old map block and compare 3 
3 636 171 ! it to the map we have laboriously constructed. If any blocks are 3 
3: 265 76 ! being reclaimed (that is, they are marked free on the new map an 3 
; $38 17 i marked ‘in use’ on the old map) then erase them before writing the : 
3 o25 Ir ; new map block. : 
: 2661 178 ! We do not read the old storage map if the caller did not request 3 
3 2662 17 ! that reclaimed blocks be erased. If the map read-buffer cannot 3 


pa196¢ 12:45:34 — ERUNT. SRCSREBUILD 832; Pee a5 


REBU Rese 
voo~000 1-88 


H be created, the erase is not attempted. 


i Note: The SCB is VBN 1 of BITMAP. SYS. The actual storage allocation 
; bitmap begins at VBN 2. 


ERASE_STATUS = 1; 
OLD_ACLOCMAP = 0: 


IF .ERASE_REQUESTED ! 4... then allocate read-buffer 
IF .OLD_ALLOCMAP EQL 0 
IF NOT (ERASE_STATUS = LIBSGET_VM (UPLIT (512), OLD_ALLOCMAP)) 
ERASE_REQUESTED = 0; ! Disable the erase 
—_ ! ... then assign a channel 


MSW —COONOULS WN OOM 


OOOO 0000000000 00 COCO CD OD CO ~~ 


Be Se Se Se Se Se Se Oe Oe Se Se Se SH Sees Fees Se Se Se See Se Se Seas 


RVT = .VCBCVCBSL_RVT 
IF N B 


ORCRVTCRVTSL_UCBLSTJ, .RVN-1); 
POINTERJ="DEVNAM_BUF ; 
DEVNAR BUF, -1, .UCB; CURRENT_DEVCDSC$W_LENGTH)); 
SC$K_DTYPE_T: 
SCSK~CLASS"S; 
GN (BEVNAM=CURRENT_DEV, CHAN=ERASE_CHANNEL) ) 


uC 
CURRENT_ 
1OCSCVT— VNAM $12 
CURRENT — _DTYPE) = 6 
CURRENT $B-CLASS) = D 
F NOT TERASE_STATUS = SASSI 
yp ERASE-REQUESTED = 0; 


rororor 
SAA RARRARAEAS SSS > 
2 2 10909 09 C8 NINN NNN o 
—OOow iv P —O0O®w MEW 
1 N.AA ALAIN AANNNNNNWNWNWWWNNNNINAIAN NAAN AANA AAI 


POROPOPOROROPOPUPONONIPONOPUPIPONU PUI 2 a es 


9 BEGIN 
98 : 

84 99 Assign a channel to current volume so the erase 1/0 will work properly. 
2685 00 This is done by getting the UCB address of the root volume of the volume 
se 0 set, following the pointers to the RVT, and from there picking up the UCB 

68 0 address of this volume. Given the proper UCB address, format the device 
ons name and assign a channel to the device. 
2690 0 
691 0 
23 3 ERASE CHANEL NEQ 0 
26 0 SDASSGN (CHAN=.ERASE CHANNEL); 
695 1 UCB = KERNEL_CALL (GET_CRANNELUCB, .CHANNEL); 
696 1 VCB = .UCBCUTBSL_vCBI; 52 
697 1 : 
1 
1 
1 
1 
1 
1 
1 
2 


I 


VBN = MAP_VBN; ' Skip the SCB 
BUFPTR = [ALLOCMAP; 
UNTIL _—- GEQA .ALLOCMAP + .ALLOCMAP_SIZE DO 
IF .ERASE_REQUESTED 
BEGIN ! Start of scan/erase code 


i Read the next block of the old bitmap. Read errors will abort the 
' rebuild and leave the volume software writelocked. 


' Start of DO-UNTIL loop 
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i 
i 
i 
i 
' 
| Note that CHANNEL is assigned to the root volume of the volume set. 
if 
; 
4 
4 
4 
4 
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! 
P STATUS = DO_I0 (CHAN = .CHANNEL, 
P FUNC = i0$ READVBLK, 
P 10SB = 
P Pi = 
P a 
P et, 9 


if - STATUS 
IF NOT (STATUS = .10_STATUS[OJ) 
THEN 


BEGIN 
' CLEANUP_FLAGSCCLF_UNLOCK] = 0; 
RBLD_EXTT (RBLDS_ACCBITMAP, .RVN, .STATUS); 


Compare the old bitmap block opaingt the new bitmap block. 
Reclaimed blocks are those marked ‘free’ on the new map 
and ‘in use" on the old. 


BIT_COUNT = 0; 
INCR I FROM O TO 4095 DO 
' Start of scan loop 


: $ 
aati tioes AND NOT .OLD_ALLOCMAPC.1) 
' 


! This cluster is being reclaimed. Count it. 
BIT_COUNT = .BIT_COUNT + 1 
IF (.BIT_COUNT NEQ 0) 
THEN 
BEGIN 


i The Last BIT_COUNT clusters are being reclaimed. 
' Calculate the starting LBN and number of blocks 
being reclaimed and erase them. 


STATUS = ERASE_BLOCKS ((((.VBN-MAP_VBN) *4096)+(.1-.BIT_COUNT)) * .CLUSTER_FACTORC .RVN-1) 
: COUNT * .CLUSTER_FACTORC.RON-1), 
»ERASE_CHANNEL 


IF NOT .STATUS AND -ERASE_STATUS 


ERASE_STATUS = .STATUS; 
BIT_COUNT = 0; 
END; 
END; ' End of scan loop 
END; ' End of scan/erase code 
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Write the new storage allocation bitmap block to the disk. Write errors 
will abort the rebuild and leave the volume softare writlocked. 


STATUS = DO_IO (CHAN 
FUNC 
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. CHANNEL 
{O$_wRITEVBLK, 
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; 10SB = 10 STATUS, 
Pi = BOFPTR, 
Ps = 5} 
P3 = .VBN 


RU, 
v04 


~“ 


> tee | 
—~ 


vuv0v 


A govarws 
IF NOT (STATUS = .JO_STATUS(0]) 
THEN 


BEGIN 
CLEANUP FLAGSECLF UNLOCK] = 0; 
RLD_EXTT (RBLDS_ORTBITMAP, .RVN, .STATUS); 


SSNS 


VESSSSASSSE 


VBN = .VBN + 1; 
BUFPTR = .BUFPTR + 512; | Advance to next block in new bitmap 


' Advance to next VBN in file 
! End of DO<UNTIL Loop 
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1 

7 ! If we get this far, the storage bitmap has been updated. 

Le Report errors encountered while erasing reclaimed blocks, if any. 
199 if NOT .ERASE_STATUS 

a RBLD_MESSAGE (RBLDS_ERASEBLKS, .RVN, .ERASE_STATUS); 

B08 ; 

She Return resources to system. 

806 iF .OLD_ALLOCMAP NEQ 0 ' Return buffer 
807 THEN 

808 BEGIN 

809 LIBSFREE_VM (UPLIT (512), OLD_ALLOCMAP); 

810 OLD_ALLOTMAP = 0; 

i : 
Ate 3 IF .ERASE_CHANNEL NEQ 0 ! Dassign channel 
814 THEN 

215 BEGIN 

816 SDASSGN (CHAN=.ERASE_CHANNEL); 

817 ERASE_CHANNEL = 0; 

sig END; 

19 
631 RETURN 1 
822 END; ! End of UPDATE_ALLOCMAP 


-PSECT SPLITS,NOWRT ,NOEXE ,2 
00000 ¢08 QOO1C P.AAJ: .LONG 51 ; 
00000200 00020 P.AAK: .LONG 51 : 


LEXTRN ERASE BLOCKS, IOCSCVT_DEVNAM | 
-EXTRN SYSSASSIGN 
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12-808-1 382 91:97:33 MOUNT. SRCIREBUILD.B32; mead tt 5H 

-PSECT S$CODES,NOWRT,2 


OFFC 00000 UPDATE_ALLOCMAP: 
- WORD seve R2,R3,R4,R5,R6,R7,RB,RI,RIO,R11 


v0 


: 

i . 

| : 

$ : 

B 000000006 00 9% MOVAB R : : 

sh $0000000' Ff H 63 MOV OLD_ALCOCMAP, R10 : : 

E C 1 SUBL2 #24 : : 

50 DC 0001 MOVPSL CURRENT_PSL : 3146 : 

50 02 i FD 13 CmPZ #24, #2, CURRENT_PSL, #3 + 3147 : 
8 AC p4 001C CLAL ERASE REQUESTED + 3149 : 

9008 CA 91 1 aF 0 if 1$ MOVZWL  # QUOTA FIB + 3154 ; 
pc A 0002 00¢ BF p 6 MOVL é 31674, QUOTA_F1B+4 : 3138 : 
OOEO CA 53 80 09 MOVW RS QUOTA_F1B+8 : ; 
E 7C 00 CLRQ = = ( §P) t 3163 : 

7E 7C€ OO03A CLRO = (SP) : ; 

7E 04 0003C CLRL = = (SP) : ; 

0144 CA OF 99 5 PUSHAB QFIB DESC : : 

7E 7C 0004 CLRQ 0 = (SPY : : 

0 AA 9F 00044 PUSHAB I10_STATUS 3 ’ 

7E 72 BF 9A 00047 MOVZBL #174, =(SP) : ; 

7E 06 AA 3¢ 90048 MOVZWL CHANNEL, -(SP) : : 

1A DD 0004F PUSHL : : 

66 O¢ FB 00051 CALLS #12, COMMON_IO ; ; 

56 DO 00054 MOVL RO STATUS : : 

07 rT ; 90057 BLBC STATUS, 2$ + 3164 ; 

S64 OC AA ¢ 0005A MOVZWL 10 status STATUS F : 

11 56 EB 0005E BLBS STATUS, 3$ : 3165 ; 

0048 8F BB 00061 2$ PUSHR #M<R3_R6> : 3167 3 

004500468 8F DD 90065 PUSHL #4522056 : : 
000000006 00 03 FB 00 CALLS #3, LIB$ST ; : 
59 01 »D 9007 3$ VL 1, ERASE STATUS + 3184 : 

6A D4 0007 CLRL OLb_ALLOCMAP > 3185 : 

1A 08 Ac €9 0007 BLBC = ERASE_REQUESTED, 4$ : 3187 3 

18 12 00078 BNEQ 4$ : 3189 ; 

Sh bb 007D PUSHL R10 : 3191 : 

00000000" EF 9F 0007F PUSHAB P : : 

000000006 00 2 FB 00085 CALLS 3, L : : 
59 DO 0008C VL RO, ERASE STATUS ; F 

03 9 E8 0008F BLBS —_— ERASE_ STATUS : F 

0 AC D4 0009 CLRL = ERASE-REQUESTED : 3193 : 

71 8 AC £9 00095 4s: BLBC = ERASE-REQUESTED, 7$ : 3195 : 

50 04 AA g 0 99 MOVZWL ERASE “CHANNEL . RO : 3207 3 

9 90 BEQL 4 ; : 

0 DD 0009F PUSHL RO : 3209 3 

000000006 90 01 FB 000A1 CALLS #1, SYSSDASSGN ; 3 
E 06 AA 3C 000A8 S$: MOVZWL CHANNEL, -(SP) : 3210 3 

or DD O00AC PUSHL #1 ; : 

: bb AF PUSHL SP ; : 

000000006 F PUSHAB GET_CHANN LucB : : 

000000006 9F CALLS 1 : ass CMKRNL : : 
34 A2 D eb MOVL } {ucB), vcB > 3211 : 

0 ad D C4 MOVL (VCB). RVT : \3 : 

b (8 CMPL  RVT, UCB ; 321 ; 

CB BEQL © 6$ ; : 
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52 40 AOL BO 990C MOVL $4 (RVT)ER3I, UCB + 3215) 3 

4 =A E D2 6$ MOVAB DEVN AM BUF + CURRENT. DEV+4 : 1 : 

9 D MOVAB DEVNAM : 3217) : 

5 D ny MOVL UCB, : : 

4 C oC MNEGL #1 : : 

0 F OD OF Move #15 ; : 

000000006 00 1 Eg JSB toc$cv ; : 

19 AE 1 8 E MOV sR CURRENT : : 

12. AE 010E 8F 3 EC MOV #20" ‘am eDEve2 : 3218 : 

—E 7C OOOF CLRQ = (Sei : 3220 : 

04 AA OF F4 PUSHAB ERAS NEL 3 : 

1¢ AE oF ‘7 PUSHAB aes 3 ; 

000000006 99 F FA CALLS # Ent RESIGN : : 

9 DO 00101 OVL ERASE E WSrATus : F 

03 £8 001 BLBS Bese : ; 

08 AC 04 00107 CLRL ERASE senile ; 322 : 

55 02 DO 0010A 78: MOVL #2, : 322 : 

58 FO AA 00 001 MOVL ALLOCRAP, BUF ; 326 : 

50 FO AA F4 AA C1 00111 8S ADDL3 ALLOCMAP site. TA LOCMAP. RO : 3227 : 

50 7 BI 0117 CMPL BUFPTR, RO : ; 

03 iF OO11A BLSSU : : 

00E1 31 0011C BRW 18$ 3 : 

03 08 AC 8 OO11F 9$ BLBS § ERASE_REQUESTED, 10$ + 3229 : 

0095 31 00123 BRW 16$ : ; 

7E 7C¢ 001 6 10$:  CLRQ =(SP) + 3242 F 

7E D4 001 CLRL = = (SP) : : 

5 bo O12A PUSHL VBN : : 

7E 0200 &8F 3¢ 0012C MOVZWL #512, <(SP) : 3 

A DD 00131 PUSHL OLD ALLOCMAP : : 

—E 7C 001 : (SP) 3 : 

OC AA 9F 001 PUSHAB 10 STATUS : : 

31 6D 001 PUSHL #4 F ; 

7E 06 AA 3C 0013A MOVZWL CHANNEL, -(SP) : 3 

1A DD 001 PUSHL @# 3 ; 

68 O¢ FB 0014 CALLS #12, COMMON_I : : 

56 DO 0014 MOVL RO, STAT : : 

18 56 £9 00146 BLBC STATUS, 11$ > 3243 3 

56 Oc AA 3C 00149 MOVZWL 10 WS tus STATUS > 3245 3 

11 6 E8 00140 BLBS STATUS, 11$ : : 

0048 F BB 00150 PUSHR #°M<R3.R6> : 3249 3 

00450048 8F DD 00154 PUSHL #4522056 ; ; 

000000006 00 3 FB 4 A CALLS #3, LIB$STOP : : 

D4 00161 118:  CLRL  B1f_COUNT : 3256 ; 

4 D4 163 CLRL : 2 : 

09 3 4 €1 00165 128: BBC 1, (BUFPTR), 13$ : 3259 ; 

04 00 BA 4 €0 00169 BBS 1; @OLD ALLOCMAP, 13$ : : 

7 06 001 INCL eit. COURT > 3264 ; 

41 11 001 BRB 15$~ : : 

37 DS 00172 138: «STL it. COUNT + 3266 3 

D 13 0017 BEQL $~ : ; 

7 94 AA 3C 00176 MOVZ2WL ERASE ($p) : 3 7% : 

5 0120 DA43 3E OO17A MOVAW aCcLU wuSTER ANN oRCR J, R2 : 3275 : 

FE OA 1 MOVZ¥L - ; : 

ze ¢ 1 MULL3. R 5 ait COUNT, -(SP) ; : 

3 5 ; 1 ASHL. @# é. + 0 : 3274 : 

1 4 ‘ 1 SUBL3 BIT. 1, R : : 

50 E000 ¢140 9E 001 MOVAB GUN j, RO ; : 
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19-808- 1382 93:90:32 YROUNT  ERCSREBAIND 63543 
1 FE A2 3¢ 001 MOVZWL <2(R2), R1 
7E zs 19h MULLS Ri, RO, -(SP) 
000000006 8 FB 001 CALLS #3, ERASE BLOCKS 
6 DO OO1A MOVL TUS 
EB OO1A BLBS STATUS, 14$ 
E9 OO1AB BLBC = ERASE_STATUS, 14$ 
$ be 181 nog: Yt BTATUS FASE status 
AA 54 OOOOOFFF F rs 183 15$:  AOBLEQ #4095, I, 128 
— 7C 0018B 16$:  CLRO  -(SP) 
BF Oe Ooler pustt VAN 
7E 0200 &F Re 1C1 MOV ZWL yei2 -(SP) 
a bb C6 PUSHL  BUFPTR 
—E 7C O001C CLRQ. = =(SP) 
OC AA 9F OOICA PUSHAB 10 STATUS 
30 po 1CD PUSHL 48 
7E 06 AA 3C Oick MOVZWL CHANNEL, -(SP) 
1A DD 103 USHL 26 
$8 C FB 0010 CALLS #12, COMMON_I 
6 6 vO 0108 OVL RO, STATU 
18 5 5 108 LBC = STATUS 
56 0c AA 3C 0010 MOVZWL 10 STATUS, STATUS 
11 56 ES OO1E LBS STATUS. ? 
0048 &8F 6B OO1E PUSHR #°M<R3._R 
00450080 8F DD 001E9 PUSHL #4522112 
000000006 00 03 FB OO1EF CALLS #3, LIBS$STOP 
D6 O01F6 17S: INCL 
oT 0200 CB 9E 001F8 MOVAB 512(R8), BUFPTR 
FF11 31 OO1FD BRW $ 
11 9 £E8 00 00 18$: BLBS  ERASE_STATUS, 19$ 
0208 F BB 0020 PUSHR #*M<R3_R9> 
00450088 8F DD 00207 PUSHL #4522168 
000000006 00 03 FB 00200 CALLS #3, LIBSSIGNAL 
6A 05 00214 198:  TSTL OL 6 ALLOCMAP 
11 13 00 18 BEQL $ 
5A 0D 0021 PUSHL R10 
00000000' FF 9F OOZTA PUSHAB P.AAK 
000000006 00 2 FB 00 9 CALLS #2, LIBSFREE_VM 
6a ps 0 CLRL OLD_ALLOCMAP 
50 04 AA g 0229 208 MOVZWL ERASE CHANNEL. RO 
¢ 1 0 D BEQL 1$ 
DD F PUSHL RO 
000000006 00 gz. 0 1 CALLS #1, SYSSDASSGN 
04 AA B CLRW ERASE_CHANNEL 
50 01 DO 0023B 21$:  MOVL #1, RO 
04 0023 RET 


; Routine Size: 575 bytes, Routine Base: S$CODE$S + 1716 


; 2823 3 1 
Bl 
: 1 0 eludom 


<2 
oo 


Be Oe ee Be Oe Be Be Se Se Oe Be Se Oe BH Oe SH Se Se Se Se SH Se SH Se See Oe Oe Se SHEE Se SE Se Se Se Se Se Se Se FH Se Se Se Sees ee Fe esesSe se See essees 
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-EXTRN LIBSSIGNAL, LIBSSTOP 


; PSECT SUMMARY 
: Name Bytes Attributes 
> SMSG_TEXT 1559 NOVEC,NOWRT, RD -NOEXE , NOSHR. LCL, REL, CON,NOPIC,ALIGN(O) 
; SMSG_INCEX 96 NOVEC,NOWRT, RD ,NOEXE, no's se LCL, REL, CON,NOPIC,ALIGN(2) 
; Sowns 424 NOVEC, WRT, RD ,NOEX ENO LCL, REL, CON,NOPIC,ALIGN(2) 
; scones 6485 NOVEC,NOWRT, RD, fe SHR LCL, REL, CON,NOPIC,ALIGN(2) 
3; SPLIT NOVEC, *NOWRT, RD *NO NE NOSHR: LCL, REL, CON,NOPIC,ALIGN(2) 
HY Library Statistics 
; soceese= Symbols -<------ Pages Processing 
; File Total Loaded Percent Mapped Time 
: _$255$DUA28:CSYSLIBILIB.L32;1 18619 126 0 1000 00:01.9 
; Information: 1 
3; Warnings: 0 
; Errors: 0 
: COMMAND QUALIFIERS 
; BLISS/CHECK=(FIE.D, INITIAL, ,OPTIMIZE)/LIS=LIS$:REBUILD/OBJ=OBJ$:REBUILD MSRC$:REBUILD/UPDATE=(ENHS$: REBUILD) 
Size: 6485 coge + 2115 data bytes 
Run Time 1:47. 
Slaseed ieee 7200- 
Lines/CPU Min: 4 


1 
Lexemes/CPU-Min: 17843 
7? Used: 833 pages 
Compilation Complete 
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